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TOPIC B, 1 - DATS EASI EAICOTIVE 

A. DATA SET NAME: 

DBPI/I Diaqnostics 
E* CHEATED EY: 

BB Preprocessor Fanction 

C, TYPE OF FILE; 

<4) Table 

D. ORGANIZAUCN: 

Keyed List 

E. KEY IDENTIFIES (CCNTHOl FIELD) : 

Each diagnostic connnent has a five-character 
identification key having the form: DBnnn, where nnn 

is a unigue identification namber. 

F, BECORD LENGTH: 

Variable 

G« BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

DBPL/I Diagnostic Ccmments are generated into mainline 
source programs by the DB preprocessor function <see 
Section IV, Topic E.1 of the DHB) . 

I, DBPL/I DIAGNOSTIC COMMENTS: 

DB001 INITIALIZATION CCHPIETE, 

Informative - the % INCLUDE DB statement has been 
successfully processed. 
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DB002 

•DB* FOUND 
IDENTIFIER. 

WITHOUT 

ARGUMENT. 

IT IS A 

RESERVED 


Severe error 

- a DB 

preprocessor 

function 

reference 


has no parenthesised 

argument. 



DB003 

MISSING lEFT 

PARENTHESIS, 




Severe error - a DB 

preprocessor 

function 

reference 


does not begin with double left parentheses. 
Processing of this DB reference was abandoned because 
the closing right parenthesis would not be able to be 
found • 

DBOCU ARGDPIENT ABANEOKED. TCO MANY EBPl/T EPBOBS. 

Error - more than four errors have been noted from 
one DB preprocessor function reference so it is being 
abandoned. This diagnostic may arise when the right 
parenthesis are missing at the end of the argument 
(PL/I passes the remainder of the source program to 
the DB function) « 

DB005 EXTRAKEOCS TEXT IGNORED. 

Error - if this message immediately follows DB009, 
then the statement has been processed properly but 
additional clause (s) other than comments intervene 
before the semicolon. Verify that the statement has 
its own semicclon* If this message follows a 
diagnostic other than DB009r it means merely that 
part of the statement was ignored. 

DB0C6 MISSING SEWICOICS OB CCION. 'text* 

Severe error - the right parenthesis at the end of a 
DB preprocessor function reference has been 
encountered unexpectedly. The label or statement 
"text" shown was ignored, 

DB007 MISSING SEMICOICN. 'text* 

Severe error - the right parenthesis at the end of a 
DB preprocessor function reference has been 
encountered unexpectedly. The statement "text" shown 
was ignored, 

DB009 DBPL/I STATEMENT: 'text; comments* 

Informative - a non-null statement has been found. 
The "text" shewn is the statement as internally 
rearranged into a standard format without embedded 
cemmeots for further analysis. The "comments" shown 
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are those ejctracted froro the statement, 

DB011 STATEMENT FOILOSS FINISH. 

Severe error - the statement has been ignored because 
it follows the CE ( (FINISH;) ) reference. 

DB013 STATEMENT HAS 'n* MOPE LEFT PARENTHESES THAN FIGHT 
PARENTHESES. 

Severe error - the statement semicolon has been found 
but the parentheses are unbalanced. The statement 
vas ignored* 

DB015 ONKNOHN STATEMENT KEIfiOHD: 'word*. 

Severe error - the •word* shown is not the first word 
of a DBPl/I statement. The statement was iqnored. 

DB017 INVALID LISTEBPOB ACTION. 

Severe error - an ON LISTEFROR statement was iqnored 
because its action clause was neither SYSTEM nor GO 
TO. 

DB019 INVALID ERROBFILE. 

Severe error - an ON ERSORFILE statement was ignored 
because its filename was longer than eight characters 
or was net terminated by a right parenthesis. 

EB021 INVALID CN CONDITION. 

Severe error - an ON statement was ignored because it 
was neither ON IISTERROR nor CN ERROBFILE. These are 
the only ON statements recognized by the DB 
preprocessor function. 

DB023 MISSING LIST POINTER, 

A GET LIST or PUT LIST statement was ignored because 
it did not contain a required parenthesized list 
pointer. 

DB025 INVALID GET LIST CLAUSE. 

Severe error - a GET LIST statement was ignored 
because it did not contain either a KSY(O) or a KEY 
INTO clause. 

DB026 INVALID PUT LIST CLAUSE. 

Severe error - a POT LIST statement was ignored 
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because it did not contain rec^uired INTEBNAl KEY FSGM 
clauses* 

DB027 ISVALIE FIIE. 

Severe error - a statement having a FILE clause was 
ignored because its filename was longer than eight 
characters or was not terminated by a right 
parenthesis* 

DB028 MISSING LIST, 

Severe error - a SET statement was ignored because it 
did not contain a required LIST clause* 

DB029 MISSING FILE. 

Severe error - a statement that should have a FILE 
clause was ignored because it did not have one* 

DB030 MISSING SIZE. 

Severe error - a SET LIST statement was ignored 

because it did net contain a required SIZE clause. 

DB031 INVALID CN ACTICN. 

Severe error - an ON EEEOFFILE statement was ignored 
because its acticn clause was neither SYSTEM nor GO 
TO, 

DB032 HISSING •LIST* CB •KEY* ClADSE. 

Severe error - a GET FILE statement was ignored 

because it did not contain either a LIST or a KEY 
clause* 

DB033 HISSING FIELD ClADSE. 

Severe error - a statement that should have a FIELD 
clause was ignored because it did net have one* 

DB034 MISSING •tIKE LIST** 

Severe error - a SET IIST SIZE statement was ignored 
because it did not contain a required LIKE LIST 

clause* 

DB035 MISSING INTO. 

Severe error - a GET FIELD statement was ignored 

because it did net contain a required INTO clause. 
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DB037 HISSING Ff?OR. 

Severe error - a POT or BEPOT statenient was ignored 
because it did net contain a reauired FROH clause. 

DB039 HORE ITEPS TFAN FIEIDS. 

Severe error — excess INTO or EROH items in a GET, 
POT or REPUT EIELD statement were ignored. 

DBOm MORE 5IEIDS THAN ITEMS. 

Severe error - excess fieldnames in a GET, PUT or 
REPUT FIELD statement were ignored because the INTO 
or FROM clause has too few items. 

DB043 INVALID OPEN CLAUSE. 

Severe error - an OPEN statement has been abandoned 
because one of its substatenients has an invalid or 
out of order FILE, TITLE, access or function 
clause. 

DB045 INVALID READ CPTIONfS). 

Severe error - a READ statement has been ignored 
because it has an invalid or out of order 
file-positioning or NOLOCK option. 

DB047 INVALID CLOSE SINTAX. 

Severe error - a CIOSE statement has been abandoned 
because one of its substatements has an invalid or 
cut of order FILE or ERASE clause. 

DB04S HISSING FROM. 

Severe error - a WRITE statement has been ignored 
because it did net contain a required FROM clause. 

DB051 MISSING KEYFROM. 

Severe error - a LOCATE statement has been ignored 
because it did not contain a required KEYFROM 
clause. 

DB053 LIST OPTION HISSING. 

Severe error - a FREE statement has been ignored 
because it did net contain a required LIST option. 

DB055 INVALID LIST. 
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Severe error - a FREE LIST statement has been iqnored 
because it did not contain a parenthesized set of 
list-pointers. 

DB057 •filename* FILE 9AS STATEMENT DIAGNOSTIC (S) . 

Severe error - the FINISH statement has not generated 
a Mainline File Control Block declaration (see 
Section III, Topic B.4 of the DNB) for the * filename* 
shown because errors in its use have been previously 
detected. Note that a missing MFCS declaration will 
yield “undefined qualified name** diagnostics from the 
PL/I compiler for correct DBPI/I statements using the 
•filename*. 

DB059 •filename* FILE HAS NON-INPHT DSE(S). 

Informative - the •filename* shown has a use that may 
conflict with the INPUT file function attribute* 

DB061 *filenaroe* FIIE HAS NON-OUTPUT OSE(S). 

Informative - the •filename* shown has a use that may 
conflict with the OUTPUT file function attribute. 

DB063 'filename* FILE HAS NON-UPDATE USE(S). 

Informative - the *filenanie* shown has a use that may 
conflict with the UPDATE file function attribute. 

DB065 'filename* FILE REQUIRES UPDATE ATTRIBUTE. 

Informative - the 'filename* shown has a use that 
requires the OPIATE file function attribute, but this 
compilation does not contain a valid OPEN. .. UPDATE 
statement for the *filenaBe*. 

DB067 *n* DBFt/I ERRORS. 

Informative - the FINISH statement has been processed 
and *N* errors were previously detected. The 
programmer should find and analyze the *N* DBPL/I 
diagnostic comments. 
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TOPIC B.2 - DATA EASE EXECUTIVE 


A. DATA SET NAME; 

DBPL/I - DEPAC Interface 

B. CREATED BY; 

DB Preprocessor Function 

C. TYPE OF FILE; 

(4) Table 

D. ORGANIZATION; 

Documentary Table 

E. KEY IDENTIFIES (CONTROL FIELD); 

Not Applicable 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR; 

Not Aoplicable 

H. PURPOSE: 

The DBPl/I - DEPAC Interface (see Table 1) specifies 
the HFCE< STATEMENT. OPERATION code, DBPAC entry point 
name, and argument types and order for the various 
DBPL/I statments and substatements. Thus, it serves to 
specify for the EE preprocessor function (see Section 
IV, Topic B.1 of the DNB) what MFCS assignments and 
CALI statements are to be generated for each DBPL/I 
statement. Conversely, it specifies for DBPAC (see 
Sectiion IV, Topic B. 2 of the BWB) what entry points 
will be entered and what and how information will be 
available at execution time for the performance of the 
various statement actions. 

The various entry points and their argument types are 
declared by source code in SOURCE. LISBMAC member 
DBTEXT. Any program that includes the DB preprocessor 
also is given DBTEXT by an INCLUDE statement in DB. 
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TABLE 1. 


FOBTINE 

OPTION 

OPEPATION 

ENTRYPOINT 

SS CLOSE 


OC010000 

DBPACPY 

SS CLOSE 

ERASE 

0C011CC0 

DBPACFV 

SE GET 

EIEID 

C1100000 

DBPACFV 

SE GET 

INTERNAL FLC 

01100100 

DBPACFV 

GET 

INDEX KEY 

01100001 

DBPACFV 

GET 

KEY SET 

O11CO00O 

DBPACFP 

GET 

SUBFILE KEY 




SET 

01010001 

DBPACFP 

GET 

LIST SET 

01010000 

DBPACFP 

GET 

INDEX LIST 




SET 

C1010001 

DBPACFP 

GET 

SUBFILE LIST 




SET 

0101001C 

DBPACFP 

GET 

RECORD 

C10COOCO 

DBPACFR 

LOCATE 


11010000 

DBPACFV 

LOCATE 

SUBFILE 

11010010 

DBPACFV 

SS OPEN 


00100000 

DBPACFV 

SE PUT 

FIELD 

1C0100CO 

DBPACFV 

PEAO 

KEY 

111C0000 

DBPACFV 

BEAD 

KEY NOLOCK 

111C0100 

DBPACFV 

READ 

INDEX KEY 

11100101 

DBPACFV 

READ 

SUBFILE KEY 

111C0010 

DBPACFV 

READ 

SUBFILE KEY 




NOLOCK 

11100110 

DBPACFV 

READ 

PER SUBFILE 

11101010 

DBPACFV 

FEAD 

PER SUBFILE 




NOLOCK 

11101110 

DBPACFV 

BEAD 

LIST 

11 1C1000 

DBPACFP* 

READ 

LIST NOLCCK 

11101100 

DBPACFP* 

BEAD 

se<j. 

11119000 

DBPACFV 

READ 

S€q. NOLCCK 

11110100 

DBPACFV 

BEAD 

INDEX seq. 

11110101 

DBPACFV 

READ 

SUBFILE seq. 

11110010 

DBPACFV 

BEAD 

SUBFILE seq. 




NOLOCK 

11110110 

DBPACFV 

BEAD 

BACK 

11111000 

DBPACFV 

READ 

BACK NOLCCK 

11111100 

DBPACFV 

FEAD 

INDEX BACK 

111 nici 

DBPACFV 

READ 

SUBFILE BACK 

11111101 

DBPACFV 

BEAD 

SUBFILE BACK 




NOtOCK 

11111110 

DBPACFV 

SE EEPUT 

FIELD 

101C0000 

DBPACFV 

UNLOCK 


110COOOO 

DBPACFV 

UNLOCK 

SUBFILE 

11000010 

DBPACFV 

WRITE 


100COOOO 

DBPACFR 


ABG-2 


rt»l^ Hh H»fh 'T5hhit»M»rt»rt 
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SS = substatement 
SE = statement element 
f « filename 
p = list pointer 
r = record work area 
V = character string 

♦For FEAD LIST <NC10CK> with the KEY (nn) clause, use 
entry point DBPACPF and a fullword subscript value as 
the third argument* 
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TOPIC B,3 - DATA BASE EXECDTIVE 


A. DATA SET NAME: 

DBPAC Error Codes 

B. CHEATED BYt 

HDBPAC posts in KECB. EBHCB, ONCODE. 

C. TYPE OF FIIE; 

<4)Table 

D. OEGAKIZATICN: 

Sequential 

E. KEY IDENTIFIER fCCKTHCl FIELD) ; 

Error-code 

P. RECORD LENGTH: 

Not Applicable 

G, BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE; 

The data base executive was written with the intent of 
handling all data tase interfaces with the users of the 
NASIS system. 

This is handled by the user writing a PL/I program and 
in it using the BEPl/I language extension to handle all 
of the input/output operations to the data base# 

When the user's program is running, the data base 
executive will attempt to detect any and all errors 
which occur and communicate these errors bach to the 
user's program* 

The method of performing this communication of errors 
is through the use of the data base executive error 
codes. These are fixed binary numbers which have 
unique meanings and are transmitted back to the user's 
program using the MFCB (mainline file control blocb) as 
a vehicle of communication. 
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EBROE 

CODE EXPIAKATICN OF EBBOS 


01 Illeqal atteatt to imply open. 

03 Tried to imply an open on a new file-name irithout 
the use of an open command. 

20 Trying to open a file when the header descriptor's 
DESCOK switch is off. 

21 Trying to open for OTTTPtJT or UPDATE and the file 
is not the anchor or an associate or a descriptor 
file. 

22 End-of list (BEAD LIST Statement) . 

23 Humber of files exceeds the number allowed in the 
MFCB file array. 

25 The user is not the owner of the file^ but he is 
attempting an open for UPDATE or OUTPUT, 

26 Attempted open of the file for INPUT, the DATA 
switch indicates no data* 

27 Open attempted but its function was not INPUT, 
OUTPUT, or UPDATE. 

28 Open issued for UPDATE or OUTPUT was prohibited by 
the HNTHING, EHTNABLE, or the DATA switch^ 

30 Operation code error. 

31 Key field failed general validation (BEAD KEY or 
LOCATE) . 

32 Key field failed specific validation (READ KEY or 
LCCATE). 

34 Erase attempted on CLOSE but the file is not open 
for UPDATE. 

35 Erase attempted on descriptor file other than the 
anchor. 

36 The GET FIEIE operation attempted but the last 
record operation was a LOCATE. 

38 The GET FIEID operation attempted but there is no 
current record. 
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39 

40 

41 

42 

43 

44 

46 

47 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

61 

62 

63 

64 

65 

66 


GET BECORB operation attempted but the user is not 
the owner. 

GET IIST attempted, but file is not inverted 
index. 

Key is null (EEAE KEY or lOCATE) . 

Key sequence error (tOCATE sequential) • 

Duplicate key error (LOCATE direct) . 

Not an OUTPUT file for UNITE. 

No current record (PUT or BEFUT) « 

Current record net locked (PUT or REPUT) • 

PUT or REPOT to INPUT file. 

REPOT to non-OPDATE file. 

REPUT following LOCATE. 

GET operation (field is not in descriptor 
table) • 

Field failed general validation (PUT or REPOT) • 

Field failed special validation (POT or REPUT) • 

Null value to be PUT. 

Eit field too long (PUT or PEPUT) • 

PUT tc non-null bit switch. 

PUT tc non-null fixed length field. 

PUT tc ncn-null variable length (single element) 
field . 

Field would make record too long (PUT) • 

Field would make record too long (REPUT). 

Element would make record too long (PUT). 

Element would make record too long (REPUT) , 

Element field too long (POT or FEPUT) , 

Too many (variable) elements (PUT) . 
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67 No GET before REPOT (variable elements) • 

68 NO qocd GET before REPOT (variable elements) • 

69 Undefined field (PUT or REPOT), 

70 REPOT to never POT (null) field (record not 
found) • 

71 Too many (fired) elements (POT). 

72 (Fixed) element would make record too lonq 
(PUT) . 

73 No GET before REPOT (fixed elements) • 

74 No qocd GET before REPOT (fixed elements) • 

75 Field too long (POT or REPUT). 

76 Key would make cross reference record too long 
(PUT or REPOT). 

77 Cross reference not found on record. 

78 Target field •actual* length checking indicates 
truncation. 

79 Command system trying to open someone elses STATIC 
or TRRSCT dataplexes for UPEATE or OUTPUT. 

80 Command system opening a dataplex (other than 

STATIC or TBNSCT) foc either OUTPUT or UPDATE, 

83 GET KET incompatible with list. 

84 GET KEY sequence error. 

85 Field length less than 2 found* Data Base 

damage* 

86 Field length beyond reclen found. Data Base 

damage. 

87 Field length not equal to 2 plus a multiple of 
element length found. Data Base damage. 

68 Element length less than 1 found. Data Base 

damage. 

89 Element length beyond field length found. Data 
Base damage. 
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90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
104 
108 
112 
115 
120 
124 
128 
131 
136 
140 

144 


Invalid DB2 header descriptor, DB1 descriptor or 
damage* 

Field descriptor reclen less than 78. Descriptor 
damage. 

Field length less than 2 in descriptor. 

Descriptor damage. 

Field length bevond reclen in descriptor. 

Descriptor damage. 

FALTDflBG Icnqer than 50 bytes would be truncated. 
Descriptor damage. 

SECUFITY field length invalid. Should be 2 olus a 
multiple of 8. 

No descriptor found for key field. Descriptor 
damage. 

Invalid field length in index record found. Data 
base damage. 

Record missing from index region. Data base 
damage. 


End of data. 

Keys equal sequence error. 
Kev not found. 

Keys out of sequence. 

Keys do not coincide. 

Keys coincide. 


Invalid retrieval address. 


Invalid record length. 

Position past end of data set. 
Position before start of data set. 


(VISAH) 

(7ISAn+100) 

(VISAM+100) 

fYISAM+lOO) 

(VTSAM+100) 

<VISAM+100) 

(VISAM+100) 

(VISAM + 100) 

(YISAH+100) 

(VISAM+100) 


Exceed maxiroom number of overflow 
pages * 


(VISAH+100) 


Exceed maximum size of shared data set. (VISAH+ 100) 


145 No data set^name found which is like the given 
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one* (VISAM) 

200 Attempt to (EOT or BEEOT) nail pattern. 

201 Attempt to (EOT or FEEOT) to readonly field. 

202 Undefined subfile or indexed field (READ, LOCATE, 
or ONIOCK). 

203 Not an indexed field. 

204 Not a subfile <control> field. 

205 LOCATE to INEOT file. 

206 No current anchor record (LOCATE SOBFILEI • 

207 Anchor record not locked (LOCATE SUBFILE) • 

208 Nc current sutrecord (READ PER SUBFILE) • 

209 Anchor record not current (delete subrecord) . 

210 The file is not open (to post FLDTAB) . 

211 Descriptor damage detected while posting FLDTAB. 

212 Anchor record not locked (delete subrecord). 

213 Anchor record not parent of subrecord (delete 
subreccrd) • 

214 Subrecord id not found in control field (delete 
subrecord) • 

215 Duplicate fixed length element (POT or REPDT) . 

216 Duplicate varying length element (PUT or EBPUT) . 

217 LOCATE SUBFILE not done because 131071 regions 
used. 

218 NAHEFLD field length invalid. Should be 2 Plus a 
multiple of 9. 

219 GET superfield requires current subfile record. 

220 RSECTYCE field length invalid. Should be 2 plus a 
multiple of 9. 

221 Non-owner attempted to open associate having 
record level security. 
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TOPIC B. 4 - DATA EASE EXECDTIVE 


A. DATA SET NAME: 

Mainline File Ccntrol BlocX 

B. CBEATEE BYt 

Declared fcy CB Preprocessor Function. 

C. TYPE OF FItE; 

<4) Table 

D. OBGABIZATION; 

linear structure followed by an array of linear 
structures. 

E. KEY IDENTIFIER (CCBTRCI FIEID) : 

Hithin DEPAC the mainline file control block is a 
parameter named HFCB. Outside DBPAC each mainline file 
control block is an Independent external controlled 
structure whose name is the DBPl/I file name (PlEX in 
the retrieval system). For this reason, file names 
must not conflict with other external name system* 
This file name is not padded with dollar signs the way 
a file title must be. The file name is passed as an 
argument in CAlt statements to DBPAC and thus becomes 
the RFCB parameter. 

F. RECORD LENGTH: 

1324 bytes (hexadecimal 52C) 

This is the length of the whole control Mock including 
the necessary dope vectors and a thirtyseven element 
array allowing up to thirty-seven data sets in a data 
base. The number of elements in the array may be 
adjusted, if necessary: - the control block size will 

be adjusted by 24 bytes per element and the 
HFCB. FILE. ARR^SIZE field must be suitably initialized 
but no changes are necessary in DBPAC or in other 
HPCB's. 

G. BLOCKING FACTOR: 

Not Applicable 



PAGE 20 


R. PtJFPOSE: 

the HFCB control block is used for communication 
between mainline programs and DBPAC. For DBPt/I 
statements in the mainline , the DB preprocessor 
function generates statements that post fields in the 
HFCB f such as the operation code* At execution time, 
the posted HFCB is passed as an argument to DBPAC* 
DBPAC performs the operation indicated in the HFCB, 
making reference to other fields in the HFCB as 
necessary and posting fields in the HFCB, such as 
HFCB, EFROE.ONCOCE, which may suhseguently be referenced 
in the mainline* 

I. PL/I DECLAFAlICNt 
DECIABF 

1 HFCB, /♦MATBIINE FllE CONTEOL BLOCK*/ 


2 INITIALISE! BIT(2>, /*00t NEVER INITIALIZED ♦/ 

/*10: INITIALIZED, CLOSED ♦/ 

/♦II: INITIALIZED, OPENED */ 

2 FILLER_1 FIT (6), /*NOT USED */ 

2 STATEMENO:, /*CB FUNCTION */ 

3 OPERATION EIT<8), /♦CODE */ 

3 ONFIELD CHAR (8), /*PIELD NAHE */ 

2 FILLER_2 CfiAB(3), /*NCT USED */ 

2 SFFOR 

3 SYSTEM BITH)# STANDARD DBPAC ACTION ♦/ 

/*0: USEE ERROR ROUTINE ♦/ 

3 FILLER 3 EIT<7), /♦HCT USED */ 

3 0NC0DE*F1XED BINARY, 

3 ROUTINE lABEl, /*0SER»S */ 

3 ONBETUFN LABEL, /*IH HAINLINE */ 

2 FILE, 

3 ONFIIE CHAR (8), /*FILE TITLE */ 

3 OLFILE CHAR (8), /*TC SAVE FILE TITLE IF DYNAM*/ 

3 OWNER ID CHAR (8), /*ONHEH OF THE FILE ♦/ 

3 DSNAHE CHAR<35), /*DATA SET NAHE ♦/ 

3 ATTRIBUTES 

4 ACCESS BIT(1), /*0: DIRECT */ 

/♦I: SEQUENTIAL */ 

4 SAVE_FUKC BIT (2) , /*TO SAVE FUNCTION IF DYNAMIC*/ 

4 FILLER_4 BIT (3), /*NCT USED */ 

4 FUNCTION BIT<2), /*10: INPUT ♦/ 

/*01: OUTPUT ♦/ 

/*11: UPDATE ♦/ 

3 CUREENT^IIIE FIXED BINARY, /*SDBSCHIPT IN FILE, ARRAY*/ 
3 LAST FILE FIXED BINARY, 

/♦NUMBER OF FILES IN FILEPIEX OR DATAPLEX*/ 
3 ARR SIZE FIXED BINARY (15) ,/*DECLARED ARRAY SIZE */ 
3 ARRAY (37) , 

4 FILE NAME CHAR (8) , 

4 DTP POINTER, 


/♦DESCRIPTOR TABLE ADDRESS ♦/ 
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4 FCEP PCINTEP, /*EILE CONTBOL BLOCK ADDBESS */ 


4 KYC FIXED BINAPY (151 ,/*SUBSCEIPT 0? KEY FIELD ♦/ 

/♦DESCEIPTOR IS ALWAYS =1, */ 

4 SWITCHES, 

5 CDBHENT BIT(1) , 

5 LOCKED BIT (11 , 

5 WPITE EIT(l), /*FOPCE WHITE ♦/ 

5 BEWETTE BIT(1), /*FCBCE BEWBTTE */ 

5 ABSENT BIT(1), /*NOLL OB SECOBED EECOED */ 

5 OPENED BIT(1), /♦THE FILE IS OPEN ♦/ 

5 FILLER^S BIT (2), /*KCT USED */ 

4 FILLEB 6*CRAB(1>, /*NOT USED */ 

4 BECOBDCT FIXED BIN AB Y ( 1 5) ; /♦ # OF DSABLE DESC, ♦/ 


DETAIL NOTES; 

INITIALIZEE - usea entirely vithin DBPAC. 

STATEMENT. CPERATICN - see Section III, Topic B . 2 of the 
DHB for the codes that are posted here fcy the DB 
preprocessor function. 

STATEMENT, ONFIELD - posted by the DB preprocessor 
function, 

EBBOfi. SYSTEM - posted by the DB preprocessor 
function, 

EHROfi.ONCODE - posted by DBPAC when an error is 
detected but not reset for successful 
operations. See Section III, Topic B, 3 of the DHB 
for the DBPAC Error Codes, 


ERFOH. ROUTINE - 
function. 

posted 

by the 

DB 

preprocessor 

ERROR. ONBETUPN - 
detected* 

posted by 

DBPAC 

when 

an error is 


FILE.ONFILE - posted by the DB preprocessor function. 
When the first character is not a pound siqn 
indicating a descriptor file, DBPAC shifts the 
value one character to the right and posts a 
leading black character. 

FILE.OLFILE - used within DBPAC to detect need for 
reinitialisation. 

FILE. 0«NEB_ID - used within DBPAC. 

FILE.DSNAME - used within DBPAC, 

FILE. ATTBIEUTES. ACCESS and FUNCTION - posted by either 
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the DE preprocessor function or, when in default, 
by DBPAC. 

FILE. SfiVE^TDNC * used within DBPAC, 

FI1E.CURBE»T_FIII - used within DBPAC. 

FILE.LAST_FItE - used within DBPAC. 

FILE. ABF_SI^E - set the DB preprocessor function 

icdicatinq the dimension of the FIIE.ABEAY, 

FILE.APRAY - this array is used within DBPAC. Each 
element of the array is a linear structure of 
fields relating to a data set. Hhen the mainline 
is accessing a descriptor region or an inverted 
index, onlv the first element is used. Otherwise, 
the first element relates to the! anchor data set 
and subsequent elements relate to associated and 
subfile and inverted index data sets. 

FILE. ARRAY, PILE^NAHE - the «title" of the data set 
having a leading blank or pound sign and a 

trailing blank or suffix. 

FILE. ARRAY, DTP - the address of the (dynaniically 

allocated) descriptor table for this data set. 

FILE. ARRAY. FCBP - the address of the (dynamically 

allocated) file control block for this data set. 

FILE. ARRAY. KYC - the subscript of the key field 

descriptor in the descriptor table array is always 

1 . 

FILE.AFRAY.KYC ( 1 ) - one (the anchor) plus the number of 
associate data sets. 

FILE. ARRAY. KYC{2) - KYC(1) plus the number of subfile 
data sets. 

FILE.AERAY.SWITCF.es - switches used by DBPAC for the 
status of the data set. 

FILE. ARRAY. RECORDCT - the number of descriptors in the 
descriptor table array. This number does not 
include descriptors of fields a given user does 
not have field security clearance to access. 
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TOPIC B.5 - DATA BASE EXECUTIVE 


A. DATA SET HAMBt 
List Structure 

B. CREATED BY: 

HDBPAC and SDBtlST 

C. TYPE OF FILE: 

(4) Table 

E. 0PGANI2ATI0Nt 

Structure ccntaininc and adjustable array 

E, KEY IDENTIFIER (CCFTRCl FIELD): 

Not Applicable 

F, RECORD LENGTH: 

40 byte prefix pits nurober-of-keys times internal key 
length 

G, BLOCKING FACTOR: 

Not Applicable 

H, PURPOSE: 

The list structure includes the primary list of keys 
and all supporting information. The list segments 
created by the data base executive are all linked 
together by the PREV pointer and the NEXT pointer. 

I, PL/I DECLARATION: 

DECLARE 

1 LIST BASED (IIST^PTR) , /*BAIN STORAGE KEY LIST*/ 

3 PREFIX, 

5 CRAIN, /*CONNECTING SEGMENTS ♦/ 

7 PTR, /♦NULL: END OF CHAIN ♦/ 


S PREV PTR, /*BACKRAFDS CHAIN */ 

9 NEXT PTR, /*FORRARDS CHAIN */ 

7 CONTINUED BTTO), /*NEXT SEGMENT IS */ 

/*CONT, OF THIS ONE? ♦/ 
5 SPARE BIT (31), /*NOT USED */ 


5 STRING_SIZE FIXED BIN, /*CNLY POSTED BY ALLOC.*/ 

5 KEY, 
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7 MAX COUNT PIXIE BIN^ 

7 COnil FIXED BIN, 

7 CnPSOR, 

9 READ FIXED BIN, 

9 GET FIXED BIN, 

7 SIZE FIXED BIN, 

7 FIE1D_KAHE CHAB (8) , 

7 CONVERSION CHAP <8) , 

3 KEYS CHAR (1IST_STBING_SIZE 
REFER (LIST*STRIN6_SIZE) ) ; 


/♦COUNT LINT THIS SEGMT*/ 


/♦KEYS PER THIS SEGMT ♦/ 
/♦FOR THIS SEGMT ♦/ 
/♦FOB READ PER LIST */ 
/♦FOR GET KEY */ 
/♦BYTES PEE KEY ♦/ 
/♦KEYfCONTRL FID NAME ♦/ 
/♦KEYS APPLY TO ♦/ 
/♦BTN NAME FOB OUTPUT ♦/ 
/♦NULL VALUE: NONE */ 
/♦charIkey. size ♦ ♦/ 

/♦MAX.COONT) ♦/ 
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TOPIC B.6 - DATfi BASE EXECDTIVE 


A. DATA SET NAME: 

IISTERB - list Errcr Control Block 

B. CHEATED BY; 

Allocated ty 5DEMTT. 

Error fields are posted ly DB preprocessor and BDBLIST* 
List chain anchors are initialized by RDBMTT and posted 
by BDBPAC and PDBllST. 

C. TYPE OP FILE; 

<4) Table 

D. OFGflNiZATICN: 

Simple structure 

E. KEY IDENTIIIEP (CCBTHOl FIELD): 

Not applicable 

F. RECORD LENGTH: 

68 bvtes (20 bytes data ♦ 48 bytes PL/I dope vectors, 
etc* ) 

G* BLOCKING FBCTOF; 

Not applicable 
H* PURPOSE: 

The list error control block holds the list segment 
chain anchors. (The chain used by the FREE all LISTs 
statement.) It also is the point of communication 
between PDBIIST and mainline programs for list error 
handling when no MFCB is involved in the operation. 
(When an MFCB is involved in a list error situation, 
the MFCB is used for error indication, etc.) 

X. PL/I DECLARATION; 

DECLARE 

1 LISTEPF CTL EXT, /*COMMON CONTROL BLOCK •/ 

3 ERROR, 

5 SYSTEM BIT(1) /* 1 : SYSTEM ACTION */ 
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/*0: GC TO USES EEBOS RTNE */ 
5 ONCODE FIXED EIK(15) /+1: INVALID LIST OPEEATIOM ♦/ 

INIT(O), /*2: INCOMPATIBLE LISTS ♦/ 

/» GET LIST KEY SET ERSOSS; */ 
/♦4: NOIL INPDT LIST ♦/ 

/*5: HO GET KEY SINCE RESET •/ 
/♦6: IMCOMPATIBLE LISTS ♦/ 

/♦ GET LIST KEY INTO ERROR: */ 
/♦7; KEY SEQUENCE ERROR */ 

/•8; TRONC, TARGET TOC SHORT*/ 
/* SET LIST LIKE LIST ERROR;*/ 
/»9: INVALID SIZE */ 

/* POT LIST KEY FROM ERRORS;*/ 
/*10: NOLL TARGET LIST */ 

/*11: WRONG LENGTH KEY VALDE*/ 
/»12: KEY SEQOSHCE ERROR */ 
5 ROOTINE LABEL /*DSEB ERROR RTNE ADDRESS ♦/ 

3 PTR, /*NOLL; NO CHAIN */ 

/♦ALLOCATOR MOST INITIALIZE */ 
5 (FIRST, /*FOBHARD CHAIN ANCHOR */ 

LAST) PTR; /*BACKHARD CHAIN ANCHOR */ 
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TOPIC B,7 - CATA BASE EXECUTIVE 

A. DATA SET NAHE; 

Data base Eescriptcr File, 
for example: 

SAOHKEF. ASBCI$.ASRCI$# 
xhere: 


”ownerid” is the 1-8 character T5S identification of 
the owner of the data fcase. 

"data base" is the 6 character data base name with the 
dollar siqn character used for padding, 

B. CREATED BY: 

RDBEDIT - the Descriptor Editor program 

C. TYPE OF FIXE; 

(6) Data Ease Descriptor file 

D. ORGJNIZATICH 

VISAH - Virtual Indexed Sequential Access Method 
(TSS) - orqaniYed in one or more regions of contiguous 
records; one region for the anchor data set 
descriptors and, as necessary, a region for each 
associate, subfile and inverted index dataset*s 
descriptors. 

Records have the varying length universal record format 
(DFF) built by DEPAC. 

E. KEY IDENTIFIER (CCNTROL FIELD): 

The VISAM key length is 15 bytes consisting of: 

7 character region name and 8 character FIDNAWE, 

A DEPt/I descriptor FILE is a contiguous set of records 
having the same region name. The DBPL/1 FILE shall be 
OPENed using an 9 character TITLE value consisting of; 

1 pound sign character (#) (signifying descriptor 
file) . 


6 character data base name with the dollar sign 
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character <$) used for padding. 

1 suffix character* 

The suffix character shall be from the following 
ranges : 

blank anchor file descriptors 

1-9 associate file descriptors 

Z-Q subfile descriptors 

A-P inverted index descriptors 

DBPAC uses the data base name and suffix to 
automatically generate the region name value for the 
keys. 

The DBPL/I KEY value is only the 8 character ELDNAHE 
(name of the field being described) that completes the 
VISAM key value. 

F, SECOPD LENGTH: 

34 bvtes minimom for a file descriptor record, 

78 bytes minimum for a field descriptor record. 

G. BLOCKING FACTOESt 

One 4096 byte paoe (block) will hold about 40 average 
descriptors: enough for a few regions for a simple data 
base. For a complicated data base with many data sets» 
fields, seccndary fields, and security codes, three or 
more pages (blocks) may be required, 

H. PUBPOSE: 

A data base descriptor file describes a data base in 
terms of the datasets, records, and fields the data 
base is compcsed of, and indicates their 
interrelationships, A data base descriptor file is 
created and maintained or modified by EDBEDIT, the 
descriptor editor, which is a system service program. 

Then the data base may be loaded, maintained, 
retrieved, etc. by programs using BDBPAC for data base 
access. EDEPAC, when OPENing a data base, reads the 
descriptor file and from it builds a table that governs 
its further actions. 

I, SAMPLE DATA EASE: 

A sample data base is used to Illustrate in detail how 
the descriptors shall describe a complicated data base. 
See Figure 1, 
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The record lavout in Figure 2 shows all eight record 
layouts in the sample data base for reference in the 
following secticns of this specification. 

DESCFIPTOa RE6ICNS: 

The sample descriptor file consists of eight regions 
(having the suffixes • • , 1 ,Z , Y, D) corresponding 
to the eight data sets in the sample data base, (Of 
course VISAM alphabetives them * • , A,B ,C,D, Y,Z , 1,) 

Each descriptor region has at least one file descriptor 
record and two field descriptor records (hey and 
RECLEH) . 

Dummy descriptor records are required in anchor regions 
when the data base has associate and/or subfile 
datasets. They are also required in associate reaions 
when subfile (s) are controlled from the associate 
dataset. 

Figure 3 tabulates all the file, field, and dummy 
descriptors required tc describe the sample data 
base. 


FILE DESCRIPTOR RECORD: 

The file descriptor record describes the dataset as a 
whole. It is uniquely identified by having a Jcey 
(FLDKAnE) of 6 blanks. It has the field values shown 
below. See Figure i» for the field values of the sample 
descriptor file. All values should be posted except 
that if BECSECFP is NOIL, BSECTYCD does not apply, 

FIELD YALOE COHWENTS 


FLDNAME 

8 blanks 

DBPL/I key 

DESCOK 

OFF 

ON 

incomplete descriptors, 
descriptors are complete. 

PILETYPE 

ANCHOR 

ASSOCIATE 

SOBFIIE 

INDEX 

type of data set being described 

DESCRCT 

numeric 

number of field descriptors in 
this region, (The file 
descriptor is not to be 
counted , ) 

ESELNGTH 

numeric 

length in bytes of fixed portion 
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of records including HECLElIf key 
and fixed orimary fields* For a 
spanned index, this includes the 
key suffix byte* 


SPANNED 

OFF 

ON 

ordinary records* 

spanned records with Internally 

suffixed keys* 

DATA 

OFF 

ON 

no data on file yet* 
retrieval is possible* 

HNTNAELE 

ON 

OFF 

maintenance is allowed, 
maintenance is prohibited. 

MNTNING 

OFF 

ON 

no maintenance is in progress, 
maintenance is in progress* 

LOADABLE 

ON 

OFF 

loading Is allowed* 
loading this data set is 
prohibited* 

RECSECFP 

null 

numeric 

records do not have a record 
security field* 

offset in bytes of record secur- 
ity field in records* 

RSECTYCD 

9 byte 
elements 

zero or more record level 
security codes* 


8 alphaoieric record security password* 

1 byte mask fcr comparison with record 

security field, 

FIELD DESCRIPTOR RECORDS: 

A field descriptor record indicates that a particular 
named field occurs in the dataset being described* It 
is uniquely identified within the region by having a 
key (FLDNARE) that is the name of the field* There are 
two kinds of field descriptors: 

primary direct 

secondary (direct and indirect) 

All field descriptor records may have the values shown 
below; 

FIELD VALUE COMBENTS 


FLDNAHE 8 alphamerics unique field name, DBPL/I 
Hank padded key. 
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GENERCST 

8 alphamerics 
blank padded 

name of generic routine for 
testing input values. 

VALIDFTN 

R alphamerics 
blank padded 

name of routine for testing 
and/or converting input 
values. 

7ALIDAPG 

0-50 bytes 

argument to be supplied 
to VALTDETN 

NOHALIGN 

OFF 

ON 

String alignment, left jus- 
tification 

numeric alignment, right 
justification 

REFORMAT 

8 alphamerics 
blank padded 

name of routine for con- 
verting output values* 

SECURITY 

8 alphamerics 
asterisk padded 

0-18 field security pass- 
words 


GENERCBT, VAIIDEIN, VAlIDiRG, and NUHAITGN may even be 
posted for secondary (read only) fields because linear 
search, for example, may have to transform values to be 
used as coicarands. 

H. PRIMARY EIEECT FIELD DESCRIPTOR RECORDS: 

A primary direct field descriptor record describes a 
maintainable field that occurs on each record of the 
dataset being described. There are five kinds of 
primary fields: 

single fixed bit 
single fixed byte 
single varying byte 
multiple fixed byte 
multiple varying byte 

In addition to the field values shovn in Section L, all 
primary descriptors have FEADCNLY OFF and a selection 


of the following 

field values. 

FIELD 

VALUE 

COMMENTS 

READONLY 

OFF 

field value may be maintained 
(PUT and BEPUT.) 

VARFLD 

FIXED 

fixed length field in fixed 
portion of records, 
portion of records. 
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BITFLD CFF hyte field 

CN bit field 

FLDPOSIT numeric if 7AFFLD is FIXED, offset in 

bytes of field, 

if VAHFID is VARYING, relative 
field in variable portion of 
records, 

FLDLEN numeric if BTTFLD is ON, offset of bit 

<0,2,4 or 6) in byte specified 
by FICPOSIT. 

if VARFLD is FIXED, internal 
length of field in bytes, 
if VAHFID is VARYING, maxifflUffl 
internal length of field in bytes 
with internal field length prefix, 

ELTIIM 0 field does not have eleraents. 

numeric maximum number of elements to be 

PDF into field or, for a control 
field, maximum number of sub- 
records per parent record, 

EtFLEN numeric if VAREIT is FIXED, internal 

length of elements in bytes, 
if VABELT is VARYING, inaxinum 
internal length of elements in 
bytes nith internal element length 
prefix, 

VAEELT FIXED fixed length elements. 

VARYING varying length elements, 

DNIQUELT OFF duplicate element values ate 

allowed. 

ON internal element values must be 

unique, 

INVFILE alphabetic descriptor region suffix for 

inverted index dataset, (null 
if none.) 

INDEXEXT OFF index internal values of field. 

ON index external values of field, 

(External length may require 
index key length greater than 
internal length,) 

A single fixed bit field descriptor has; 

VAPFLE FIXED 

BITFir CN 
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FtDPOSIT offset in bytes 

FLDIEN offset in bits (0,2,4 or 6) 

INVFIIE null (may not be indexed) 

See VERATFCE in the sample data base* 

A sinqle fixed byte field descriptor has: 

VAPFLD FIXED 

BITFIC OFF 

FIDFOEIT offset in bytes 

FIDLEK internal length in bytes 

INVFIIE optional if FLDLEH less than 254 

See EMPPAYCI, EHtINSCt and VEHHAKE in the sample 
data base* 

A sinqle varying byte field descriptor has; 

VABFtC VABYING 

FLDFOSIT relative varying field 

FIDIEK ffiaximnm internal length including 

internal 2 byte field length prefix 
EtYLIM 0 (zero) 

INVFIIE optional if (FiDLEN-Z) less than 254 

See KIENAKE in the sample data base. 

A multiple fixed byte field descriptor has: 

VARFID VABYISG 

FLDPOSIT relative varying field 

FLDIEN maximum internal field length including 

internal 2 byte field length prefix 
ELTIIK maxinun number of elements 

ELTLEN internal element length in bytes 

VAREII FIXED 

ONICUEIT optional 

INVFIIE optional if ELTIEN less than 254 

See the EBPFID and EMPVEH control fields in the 
sample data tase* 

A multiple varying byte field descriptor has: 

VARFID VARYING 

FLDFOSIT relative varying field 

FLDIEN maximum internal field length including 

internal 2 byte field length prefix and 
internal 1 byte element length prefixes 
maxiouB! number of elements 
maximum internal element length includ- 
ing internal 1 byte element length 


EITIIM 

ELTIEN 
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prefix. VABELT VARYING 

DNIQDEII optional 

INVFIIE optional if (ELTLEN- 1> less than 254, 
See the KIEPET fieia inthe sasiple data base. 


CONTBOL FIEID DESCBIPTCBS 


Every descriptor region iBust have a key descriptor for 
the field that uniquely identifies records in a 
dataset. It is a primary direct field descriptor 
record for a single fixed byte field. 


SECURITY 

READOKIY 

VARFtC 

BITFLD 

FLDPOSIT 

INVFItE 


must be null, 
is OFF 
is FIXED 
is OFF 
is 4 

must be null 


Each associate key descriptor is identical (except the 
region suffix) to the anchor key discriptor. See the 
EMPNAME field in the sample data base. 


Each subfile dataset in a data base reguires: 


1, a control field in the anchor or an associate 
dataset 

2, a separate descriptor region for the subfile 
dataset containgingt 

2a, file descriptor record 
2b, PECLEN secondary descriptor record 
2c, subtecord id key descriptor record 
2d, parent key secondary descriptor record 
2e. descriptor records for other subrecord 
fields, 

1, A subfile control field descriptor describes a 
secondary multiple fixed byte field maintained by 
RDEPAC. 


FIDNAHE 

is 

a six-character name suffixed 


fcy 

two blanks applying to the 


subfile* 

GENEPCRT 

is 

EBCVTID 

VAIIDBTW 

is 

null 

KXJMALIGK 

is 

ON 

REFORMAT 

is 

CEFMTID 

SECURITY 

is 

cptional 

READCHIY 

is 

CN 

VARFtC 

is 

VARYING 

FtDPOSIT 

is 

relative varying field 
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2d • 

2b. 

2c. 


2d. 


FIDLEN 

IITLIM 


ELTtEE 

VAHEIT 

TINIQUIIT 

SDBCNTBl 

StJEPTLE 

TNVFIIE 


is maximuEi internal field lencth 
is iDaxiFiiin) nuraber of elements. 

Sote that FLDIEN or EITLIM limits 
the maxifflaic nomber of subrecords 
per parent record, 
is 3 

is FIXED 
is ON 
is CN 

is alphabetic character descriptor 
region suffix for subfile dataset, 
must be null 


See EHPKID and EHPVEH in the sample data base. 
A subfile file descriptor record has? 

FIIETXPE SUBFIIE 


A subrecord BECLEN descriptor is standard. 

A subrecord id key descriptor describes a primary 
single fixed byte field: 


FIENABE 

is the six-character subfile name 
suffixed by ”ID”. 

GEKEFCBT 

is DBCVTID 

FALIDBTN 

is null 

KDBAIIGK 

is CN 

PEFORBAT 

is DBFHTID 

SECUBITX 

must be null 

BEADOKLY 

is OFF 

VARFID 

is FIXED 

EITFLD 

is OFF 

FIDPOSIT 

is 4 

INVFIIE 

must be null 


See EKPKIDID and EdPVEHID in the sample data base. 

A subtecord parent key descriptor describes a 
secondary single fixed byte field. 


FIDNAME 

is the six-character 
suffixed by ”PK”. 

subfile name 

GENEPCRT, 

VALIEBTN, NDMAIIGN, 

REFOHHAT and 


FLDIEN are the same 
key descriptor. 

as the anchor 

SECURITY 

is optional 


BEADOSLY 

is ON 


VAEFID 

is FIXED 


EITFXD 

is OFF 


FIDPOSIT 

is 7 


INVFILE 

must be null 
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See EMPKIDPK and EMPVBHPK in the sample data base. 

2e. Record level security may be independently 
specified for the anchor, associate and/or subfile 


datasets. It 

may not be specified for an inverted 

index dataset. 

Each dataset to have record level 

security most 

have: 

RECSECFP 

field position of record security 
field 

FSECTYCE 

optional 

in its file descriptor record and a primary direct 
field descriptor record for a single fixed byte 

field as shown 

in Figure 5 and as follows: 

PIDNAME 

SECSEC suffixed by the descriptor 
region suffix (blnak for the 
anchor and a blank. 

GENEFCRT 

DBCVTHX 

VALIDAFG 

null 

NnWAIIGN 

OFF 

EEFORNAT 

EEFHTHX 

SECaiRTY 

optional 

READONLY 

OFF 

VARFID 

FIXED 

EITFLE 

OFF 

FIDPOSIT 

on anchor or associate datasets r 
after the key (ie, 4 + key FLDLEN 4- 
1). on subfile datasets, after the 
parent key field (ie, 4 + 3 + 
parent key FLDLEN + 1) • 

INVPILE 

optional 


See the FECSEC, RECSEC1, EMPKIDF5 and EHPVEHFS 
fields in the sample data base. 


SECONDAFf FEADCNlf FIEID DESCRIPTOR RECORDS: 

A secondary field descriptor record describes a derived 
field made up cf cne or more component fields. There 
are two types; direct and indirect, 

A direct secondary field descriptor redescribes part of 
all of one primary field or a field automatically 
maintained by FDEPAC such as RECIEN and subfile control 
and parent hey fields, A direct secondary descriptor 
has the same field values as a primary descriptor with 
the following qualifications: 

RFAEOFLY is always ON, Field may only be 
retrieved (GET) • 
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IK7FI1H must fce null, 

FIDPOSIT and FIBIEK will specify an internal 
location within or equal to a primary field. 

Otherwise, the descriptor fields may specify a direct 
secondary field like any of the five types of primary 
fields. fi secondary of the same type of lenqth 

provides renaminq and perhaps an alternate PEFORHAT. A 
secondary "sinqle fixed byte" with a shorter FIDINGTH 
provides for subfields. A secondary "sinqle varyinq 
byte" redefininq a primary "multiple fixed byte" 
obtains the concatenation of the internal element 
values. 

Every descriptor region shall have a secondary direct 
field descriptor for a single fixed byte FECLEN as 
follows: 

FLDNftME is BSCIEN 

GENEBCRT is CBCVTPL 

VAtIDKTK is null 

NUflAIIGN is ON 

SEFORKAT is DBFNTBl 

SECURITY is optional 

READONLY is ON 

VABFLE is FIXED 

BITFID is OFF 

FLDPOSIT is 0 (zero) 

FIDLEN is h 

INVFILE must be null 

(No dummy descriptors are used for RECLEN. Direct 
secondary desctiptcrs may be specified bv the Data Base 
Analyst to provide unique field names for the various 
RECLENs in a data base.) 

An indirect secondary field descriptor describes a 
"superfield" make up of one or more primary or direct 
secondary component fields. No more than one of the 
component fields may be a multi-element field. The 
component field values will be concatenated in NA^"EF1D 
order for retrieval. (If there is a multi-element 
component field, then the superfield will yield 
multiple values.) An indirect secondary descriptor has 
the field values shown below. 

FIELD VALUE CCFHENTS 


READONLY ON field may only be retrieved 

NAMFFLD 9 byte one to 16 component field 
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el€Qents 
hex *00* 

hex *80* 

followed by 
8 alphmerics 
blank padded 


specifications 
use external value of 
component • 

use internal value of 
coBponent 

primary or direct secondary 
component fieldname 


REEOSMAT 8 alphamerics name of routine for 
converting 

blank padded concatenated output value 


If the ccBponent fields specified in KAHEFLD are all 
from the same dataset (anchor, associate or subfile) , 
then the indirect secondary descriptor goes in the 
descriptor regicn for that dataset. (Dummy 
descriptor (s) are reauired for the indirect secondary 
descriptor if it is on an associate or subfile.) See 
the KIDIE field in the sample data base. 

If the componenets are from an associate file and frcn 
a subfile controlled from that associate file, then the 
indirect secondary descriptor goes in the descriptor 
region for that associate. 

Otherwise the indirect secondary descriptor goes in the 
anchor descriptor region and nc dummy descriptors are 
ceguired. See the EMPTIPE field in the sample data 
base. 


If any component is from a subfile dataset, the (1.) no 
components lay be from any other subfile dataset and 
(2.) to GET such a field, a mainline program must first 
obtain a current record in the subfile -- PDBPAC will 
automatically ensure that the parent and associate 
record (s) are available when required. 

Every anchor and associate descriptor region shall have 
a secondary indirect field descriptor for the key 
field, see Figure 6. 


FLCNAEI 

aEADORLY 

NAMEFID 


HEFOanAT 


is *FIlEKEy • 
is ON 

has one element consisting of hex *00* 
followed by the name of the primary 
key field, 
is NUIt, 


(No dummy descriptor is used for FILEKEY on associate 
datasets,) 


0 


DOMMY DESCaiPTOB BFCOFDS 
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A dufflciy field Sescriptor indicates that the field 
occurs in an associate or subfile data set and if it 
has an inverted index data set* It has the field 
values shovn belcu* 

FIELD VALHE CCKflESTS 


FLDKAHE 6 alphaoerics field name. DBPL/I hey. 

blank padded 

ASSOCFIt numeric descriptor region suffix for 

character associate data set. (Null if 

none.) 

SUBFILE alphabetic descriptor region suffix for 

character subfile data set. (Null if 

none. ) 

dummy descriptor for subfile 
field. 

primary (dummy if ASSOCFIL is 
posted) descriptor for sub- 
file control field. 

IKVFTLE alphabetic descriptor region suffix for 

character inverted index data set. 

(Null if none.) 

The descriptor file, shown graphically in Figure 7 and 
8, is so designed that the anchor region describes the 
anchor records and also has dummy descriptors for all 
other fields cn associate (1) or subfile (Z.Y) records 
thus indicating the presence of all associate and 
subfile data sets. It also indicates the presence of 
all inverted indexes for the data base (A,B,C,D). 

An associate region (1) describes a data sat of 
associate records and has dummy descriptors for all 
other fields on subfiles (Y) depending on the associate 
record. It also indicates the presence of all inverted 
indexes for the associate and dependent subfiles 
(C,D) . 

A subfile region (Z) describes a data set of subfile 
records and indicates the presence of all inverted 
indexes for the sutrecords (B) . 

An index region (A) describes a data set of inverted 
index records. 

This all enables DBPAC to access a whole data base, an 
associate portion of a data base, a subfile, or an 


SUBCNTRL OFF 
ON 
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inverted index as if it were a degenerate case of a 
data base. 

INVEPTEE IKEEX CESCBIPTOPS: 

If INVFIIE is posted for a primary direct field, then a 
separate descriptor region must exist for the inverted 
index dataset. It contains only the folloving: 

FILE DESCKIPTOP BECORE 

FTIETYPE is INCEX 
SPANKED is crtional 

BSELNGTH is 4 + index key FLDLEN (+1 if 

SPANKED) . 

RECIEN SECCKDAPy DISECT FIEID DESCBIPTOB BECOEE 
Single Fixed Eyte 

INDEX KEY SECONDARY DIPECT FIELD DESCBIPTOE RECORD 
Single Fixed Byte 

FLCKARE is same as indexed FIDNANE 
READONLY is ON 
FLDPOSIT is 4 

If indexed field descriptor has INDEXEXT OFF, the 
FLDLEN is maximum internal indexed field value 
length (without 2 byte internal field length or 1 
byte internal element length) and REFORMAT is same 
as indexed field REFORMAT. If indexed field 
descriptor has INDEXEXT ON, then FLDLEN is 
maximum external indexed field value length and 
REFORMAT is null or a blank stripper. In either 
case, FLDIEK does not include the internal 
’'sequence nuroter” suffix if SPANNED. 

CROSS REFERENCES SECONDARY DIRECT FIELD DESCRIPTOR 

Record Multiple Fixed Byte 

FLDNAME is same as indexed field’s record key 
FIDNAME. 

READONLY is CK. 

FLDPOSIT is 1. 

FLDLEN is 4C00. 

ELTLIH is 4C00. 

ELTLEN is same as indexed field’s record key 
FLDLEN. 

REFORMAT is same as indexed field’s record key 
REFORMAT. 
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0. FILE AllD FIELD DESCEIPTCB RECOBE FORMATS: 

File Descriptor Record Format 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


RECLEN 

0-3 

Fixed 

Binary 

Length of header 
record, in bytes, 
includina itself. 

KEY 

4-18 

Fixed 

EBCDIC 

Identifier for this 
descriptor. Contains 
file name • 

FLENAME 

4- 1C 

Fixed 

EBCDIC 

Seven-character file 
name for this 
descriptor. Contains 
data base and 
suffix. 

DATAPLEY 

4-9 

Fixed 

EBCDIC 

Dataplex name padded 
with $s to 6 
characters. 

SUFFIX 

10 

Fixed 

EBCDIC 

Identifier dataset. 

FLDNAME 

11-18 

Fixed 

EBCDIC 

Contains blanks. 

FILETYPE 

19 

Fixed 

EBCDIC 

1: Anchor 

2: Associate 

3: Subfile 

4; Inverted index 

DESCRCT 

20-21 

Fixed 

Binary 

Number of field 
descriptors for this 
dataset. 

BSELNGTH 

22-23 

Fixed 

Binary 

Lenoth of fixed 
portion of record. 

DESCOK 

24.0 

Fixed 

Bit 

0: incomplete 

descriptors. 

1: complete 

descriptors. 

SPANNED 

24.2 

Fixed 

Bit 

Applicable if 


FILET YPE=4; 

0: ordinary records 

1: spanned records 

with internally 
suffixed keys. 


No data on file. 
Retrieval is 


possible. 


12 DATA 


24.4 Fixed Bit 
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13 

MNTNAELE 

24.6 

fixed 

Bit 

0: Maintenance 

prohibited. 

1: Maintenance 

allowed. 

14 

MNTNING 

25.0 

Fixed 

Bit 

0: Maintenance not in 

progress • 

1: Maintenance in 

progress. 

15 


25. 2 

Fixed 

Bit 

Currently not 
applicable- Null. 
1; Check record 
security. 

16 

LOADABLE 

25.4 

Fixed 

Bit 

0: Loading 

prohibited. 

1; Loading allowed. 

17 


25.6 

fixed 

Bit 

Currently not 
applicable-Null. 

18 

PEWAIKS 

26-29 

Fixed 


Currently not 
apolicable-Nnll. 

19 

RECSECFP 

30-31 

Fixed 

Binary 

Record security field 
offset in records; 
null if none. 

2C 

RSECTYCD 

VrFldl 

Far 


0-18 record security 


specifications 
consisting of a 
NASIS-id padded with 
$s to 8 characters and 
a one byte mask* 
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Field Descriptor Becord Format 


1 BECLBN 0-3 Fixed 

2 KEY 4-18 Fixed 

3 FLENAKE 4-10 Fixed 

4 FLDNAME 11-18 Fixed 

5 ASSOCFIL 19 Fixed 

6 SUBFILE 20 Fixed 

7 IWVFIIE 21 Fixed 

8 BEADONLY 22,0 Fixed 

9 SUBCNTBL 22.2 Fixed 

10 VAFPLD 22,4 Fixed 

11 BITFLD 22.6 Fixed 


Binary 

Length of entire 
descriptor, in bytes, 
including itself. 

EBCDIC 

Identifier for this 
descriptor. Contains 
file and field 
names. 

EBCDIC 

Seven character file 
name for these 
descriptors. 

EBCDIC 

Name of field within 
file. 

EBCDIC 

Suffix of associated 
linear file nhich 
contains this field; 
null if none. 

EBCDIC 

Suffix of subfile 
which contains this 
field or which is 
controlled by this 
field; nail if none. 

EBCDIC 

Suffix of inverted 
file which indexes 
this field; null if 
none. 

Bit 

0; (Re) Put allowed, 
1: (Re) Put 

prohibited. 

Bit 

Applicable if SUBFILE 
is non-null: 

0: Field is on 

subfile, 

1: This is control 

field. 

Bit 

0: Fixed length 

field. 

1; Varying length 
field. 

Bit 

Applicable if VARFLD= 
0; Byte field. 

1: Bit field. 
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12 NDMALIGN 23.0 ?ixed Bit 0: Strino (left) 

align. 

1: Numeric (right) 

align. 

13 7AEELT 23.2 Fixed Bit Applicable if 

ELT1IM>0; 

0: Fixed length 

elements. 

1: Varying length 

elements. 

14 UKIOOELT 23.4 Fixed Bit Applicable if 

EITL1M>0; 

0: Duplicate elements 

allowed. 

1: Duplicate elements 

prohibited. 

15 INDEXEXT 23.6 Fixed Bit Applicable if TNVFILE 

is non-null. 

0: Index internal 

values. 

1: Index external 

values. 

16 GENERCBT 24-31 Fixed EBCDIC Name of routine to be 

used for testing type 
of input characters 
(numeric^ alpha, 
etc.);null if none. 

17 VALIDPIN 32-39 Fixed EBCDIC Name of routine to be 

used for special 
validation or 
conversion of input 
data; null if none. 
Uses argument in 
VAtIDARG. 

18 REFORMAT 40-47 Fixed EBCDIC Name of routine to be 

used for any necessary 
output reformatting or 
conversion; null if 
none. 

19 SPARE 48-55 Fixed Currently not 

applicable-Null. 

20 NAHECNT 56-57 Fixed Currently not 

applicable-Null. 

21 FLDPOSIT 58-59 Fixed Binary If VASFID^O: byte 
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offset in record* 

If VAHriE^I: relative 

varying field* 

22 FLDLBN 60-61 Fixed Binary If BITFLD=1: bit 

offset in byte* 

If VAFFLD=0; field 
length in bytes* 

If VAHFLD=1: maximum 

field length 
in bytes including 2 
byte length indicator* 

23 DFLDLEN 62-63 Fixed Currently not 

applicable- Null* 

24 ELTLItI 64-65 Fixed Binary Applicable if 

7APFID=1: 

0: not 

mnlti-eleiBent. 

>0: maximum number of 

elements allowed* 

25 DEXTIin 66-67 Fixed -- — -- Currently not 

applicable-Null* 

26 ELTLEN 60-65 Fixed Binary If VARF1T=0: element 

lenoth in bytes. 

If VABEIT*1; maximum 
element length in 
bytes including 1 byte 
length indicator* 

27 DELTLEN 70-71 Fixed Currently not 

applicable-Null. 

28 VALIDAPG VrFldl VarHex Argument to be used 

with VAIIDRTN 
(test mask, limit, 
etc.). Fifty 
bytes maximum. Null 
if none* 

29 NAHEFLD FrFld2 Far 0-18 Superfield 

components 
consisting of a one 
byte function code 
(0Ox: external field 

element, 

OOx; internal field 
element) and an 9 
character component 
field name* 
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30 SECURITY VrFia3 Var EBCDIC 0-18 field security 

codes 

consisting of a 
NASiS-id 

padded with *s to 8 
characters. 



parallel 


Anchor 



Associate * 1 * 



Index Index 'D* 


(Note: A simple data plex consists of only an 

anchor data set. A more complicated dataplex than 
the sample may have multiple index, associate, 
and/or subfile datasets, but the principles for 
describing it are shown in the sample.) 


FIGURE 1. SAMPLE DATAPLEX 



BY TES 

8 - double word 
4 - word 
2 - holfword 

1 - 2 packed-decimal digits 


ANCHOR 

1 I 


j^H/iWiCTERrsriCS'^f' 


Record Nome SAMPLE DATAPLEX 


RECLEN EMPNAME (KEY ) 




KEXADECIKAL 

OECiHAt. 


02/07/72 


EMPKID (CONTROL PIE 


INi'cRNAVlONAl BUSINESS MAChlNtS CORPORATION 


APPLICATION 


GX20-1/n OU/M 02L 
Primed in U.S.A, (Reyt, 4/70) 



)[ tr| It _ I5l IS I 16 i 17 

sP’wtTlffV; 


ASSOCIATE 

TIT 


BKIBg WSlMgKHtMBBl 

E2iiiesaEraiEigjt^E::^tgasi.^ 




RECLEN EMPNAME (KEY ) 


W EMPINSCL 

c/^ 


EMPVEH 


00 CD 
100 CD 
200 CD 
300 CD 
400 CD 
500 CD 
600 Ed 
700 CD 
800 CD 
900 CD 
AOO CD 
BOO CD 
COO a 
DOO CD 
EOO CD 
FOO Ed 







SUBFILE 
»Z» RECLEN 




EMPKIDPK CPARENT KEY) 


WWnBIHBBB 


&&r 97 


lU 


KIDNAME 


Pl 


.KIDPET 


_101_irii_3zL 9>1 ‘}*»! 


fCKk^ 


INDEX 

'A» 


RECLEN 


EMPNAME (CROSS REFERENCES) 


LCHAlTAiCrEEirSTICS 


MEXADECInAU 

DSCtMAU 




INDEX 

'B' RECLEN KIDNAME (KEY) 


lol Ul l?l tsi 
IjfiaF w- »ak-j»t 


EMPKIDID CCHOSS REFERENCES) 


HEX 


DEC 

f>0 

CD 

0 

100 

CD 

256 

200 

CD 

512 

300 

CD 

768 

400 

CD 

1024 

500 

CD 

1280 

600 

CD 

1536 

700 

CD 

1792 

800 

CD 

2048 

900 

CD 

2304 

AOO 

CD 

2560 

BOO 

CD 

2816 

COO 

CD 

5072 

ooo 

CD 

3328 

EOO 

CD 

3584 

FOO 

CD 

3840 






Irttsorstr azF'ssI 


occ gi^:iJ^iSTirCTuiTT3nt.rTTOi3yL^ 

INDEX 


FM'5|»5A>15»fe6: 


BmEmETrr g ygfrrTTEF^TpiFrra 


VEHMAKE CKEY) 

..RECLEN , (EXTERNAL FORM) 


EMPVEHID (CROSS REFERENCES) 


nUml 



Fold CHARACTERISTIC CODES > 

— — to 

Vh1 TimlT FP M\TF I 


grn £7irayjTTP3THH-^.p:^^-|sni^ 


db I 'PC 

imr 




C - character, 8-^\t eod^ 

X “ hexadecImaL 4^riF^oda inory 

"tURE 2 -Sample DATAPLEX RRnopn 


„ , . F - fixed-point, fvH word 

H - fixed-point, t'olfword 


E - floating-point, full word 
D - floating-point, double word 


P - packed decimal 
Z - zoned decimot 


A - address value, full word 
Y - address value, halfword 


FIGURE 


SAMPLE DATAPLEX RECORD LAYOUT 




FOLDOUT FEAM Q. 


'T9 f TA 'FSf ‘FC ^D!'ral ?FF« 




V - address, exiemol symbol 
S - address, base displocement 




























Anchor 

Associate 

Subfile 

Subfile 

Region: 

*PLEX$$ ' 

*PLEX$$1* 

'PLEX$$Z* 

*PLEX$$Y' 


file descriptor 

file descriptor 

file descriptor 

file descriptor 

Field descriptors: 

RECLEN 

EMPNAME. (Key) 

FILEKEY 

RECSEC 

EMPTYPE 

EMPPAYCL 

EMPKID (control) 

RECLEN 

EMPNAME (Key) 
FILEKEY 

RECLEN 

RECLEN 


EMPKIDID 

EMPKIDPK 

EMPKIDRS 

KIDNAME 

KIDPET 

KIDID ' 

RECSECl 
EMPINSCL 
EMPVEH 

RECSECl 

EMPINSCL 

EMPVEH (control) 

EMPKIDID (Key) 

EMPKIDPK 

EMPKIDRS 

KIDNAME 

KIDPET 

KIDID 



EMPVEHID 

EMPVEHPK 

EMPVEHRS 

VEHAIRCD 

VEHMAKE 

EMPVEHID 

EMPVEHPK 

EMPVEHRS 

VEHAIRCD 

VEHMAKE 


EMPVEHID (Key) 

EMPVEHPK 

EMPVEHRS 

VEHAIRCD 

VEHMAKE 


dummy descriptors 




Index 

Index 

Index 

Index 

Region : 

'PLEX$$A* 

'PLEX$$B' 

*PLEX$$C 

'PLEX$$D' 


file descriptor 

file descriptor 

file descriptor 

file descriptor 

Field descriptors: 
Key: 

Cross references: 

RECLEN 

EMPPAYCL 

EMPNAME 

RECLEN 

KIDNAME 

EMPKIDID 

RECLEN 

EMPINSCL 

EMPNAME 

RECLEN 

VEHMAKE 

EMPVEHID 


FIGURE 3. SAMPLE DATAPLEX DESCRIPTOR LIST 



REGION DESCOK FILETYPE DESCRCT BSELNGTH SPANNED DATA MNTNABLE MNTNING LOADABLE RECSECFP 


PLEX$$ 

ON 

ANCHOR 

21 

17 

PLEX$$1 

ON 

ASSOCIATE 

11 

20 

PLEX$$Z 

ON 

SUBFILE 

7 

18 

PLEX$$Y 

ON 

SUBFILE 

6 

21 

PLEX$$A 

ON 

INDEX 

3 

7 

PLEX$$B 

ON 

INDEX 

3 

14 

PLEX$$G 

ON 

INDEX 

3 

9 

PLEX$$D 

ON 

INDEX 

3 

14 


OFF 

OFF 

ON 

OFF 

ON 

14 

OFF 

OFF 

ON 

OFF 

ON 

14 

OFF 

OFF 

ON 

OFF 

ON 

17 

OFF 

OFF 

ON 

OFF 

'on 

17 

ON 

OFF 

ON 

OFF 

ON 

null 

OFF 

OFF 

ON 

OFF 

ON 

null 

OFF 

OFF 

ON 

OFF 

ON 

null 

OFF 

OFF 

ON 

OFF 

ON 

null 


c- 


FIGURE 4. SAMPLE FILE DESCRIPTORS 



FLDNAME 

PLEX$$ EMPNAME 
PLEX$$ REGSEC 
PLEX$$ EMPPAYCL 

PLEX$$1EMPNAME 

PLEX$$1RECSEC1 

PLEX$$1EMPINSCL 

PLEX$$ZEMPKIDID 

FLEX^^ZEI-IFKIDRS 

PLEX$$ZKIDNAME 

PLEX$$ZKIDPET 

PLEX$$YE^'IPVEHID 

PLEX$$YEMPVEHRS 

PLEX$$YVEHAIRCD 

PLEX$$YVEHMAKE 


PLEX$$ RECLEN 
PLEX$$ EMPKID 

PLEX$$1RECLEN 

plex$$iempveh 

PLEX$$ZRECLEN 
PLEX$$ ZEKPKIDPK 

plex$$yreclen 

PLEX$$YEMPVEHPK 





SAMPLE PRIMARY DIRECT FIELD DESCRIPTORS 
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z 



p 

H 

p 

u 
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1^ 

M 
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P 
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p* 
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Pi 

E-4 

P 

a 





Ed. 

W 


H 
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p 

< 
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> 

P 

b 

p 

z 

p 

p 
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H 

P 

P 

O* 

W 


H 

Pi 

O 

Pi 

Z 

w 

o 


Pi 

p 
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o 

H 


H 
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p 

X! 

<3 

S 

p 


P 

3 

M 

X! 

H 

o 

P 

P 

P 

p 

> 

Q 

< 

p 

z 

S 

> 

p 

M 

W 


X 

OFF 

F 

OFF 

4 

10' 

OFF 




( ) 

C ) 

( ) 

( ) 

X 




( ) 

OFF 

F 

OFF 

14 

1 

OFF 




DBCYTHX 

X 

X 

DBFMTHX 





( ) 

OFF 

F 

OFF 

15 

2 

OFF 




( ) 

( ) 

( ) 

( ) 

A 

OFF 



X 

OFF 

F 

OFF 

4 

10 

* 




* 

A 

A 

A 

X 




( ) 

OFF 

F 

OFF 

14 

1 

OFF 




DBCVTHX 

X 

X 

DBFMTHX 





( ) 

OFF 

F 

OFF 

15 

5 

OFF 




( ) 

( ) 

( ) 

( ) 

C 

OFF 



X 

OFF 

F 

OFF 

4 

3 

ON 




DBCVTID 

X 

X 

DBFMTID 

X 




( ) 

OFF 

F 

OFF 

17 

1 

OFF 




DBCVTHX 

X 

X 

DBFMTHX 





( ) 

OFF 

V 


1 

10 

OFF 




( ) 

( ) 

( ) 

( ) 

B 

OFF 



( ) 

OFF 

V 


2 

40 

OFF 

5 

10 

V OFF 

( ) 

( ) 

( ) 

( ) 

( ) 

( ) 



X 

OFF 

F 

OFF 

4 

3 

ON 




DBCVTID 

X 

X 

DBFMTID 

X 




( ) 

OFF 

F 

OFF 

17 

1 

OFF 




DBCVTHX 

X 

X 

DBFMTHX 





( ) 

OFF 

F 

ON 

18 

0 

OFF 




( ) 

( ) 

( ) 

( ) 

X 




( ) 

OFF 

F 

OFF 

19 

2 

OFF 




( ) 
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D 
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SAMPLE SECONDARY 

DIRECT FIELD DESCRIPTORS 
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cn 


( ) 

ON 

F 

OFF 

0 

4 

ON 




DBCVTRL 
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X 

DBFMTRL 

X 


X 

X 

( ) 

ON 

V 


1 

4000 

ON 

20 

3 

F ON 

DBCVTID 

X 

X 

DBFMTID 

X 


ON 

z 

( ) 

ON 

F 

OFF 

0 

4 

ON 




DBCVTRL 

X 

X 

DBFMTRL 

X 


X 

X 

( ) 

ON 

V 


1 

4000 

ON 

5 

3 

F ON 

DBCVTID 

X 

X 

DBFMTID 

X 


ON 

Y 
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ON 

F 

OFF 

0 

4 
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DBCVTRL 

X 

X 

DBFMTRL 

X 


X 

X 
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ON 

F 

OFF 

7 

10 





* 

A 

A 

A 

X 
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ON 

F 

OFF 

0 

4 
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DBCVTRL 

X 

X 

DBFMTRL 
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X 
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ON 
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OFF 
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10 
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A 

X 





FIGURE 5. SAMPLE DIRECT FIELD DESCRIPTORS 
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3 

n - 


M 

o 



O 

9 

w 

FLDNAME 

CO 

W 

p4 

§ 

PLEX$$ FILEKEY 

X 

ON 

(EMPNAME) 

PLEX$$ EMPTYPE 

( ) 

ON 

(EMPPAYCL, EMPINSCL) 

PLEX$$1FILEKEY 

X 

ON 

(EMPNAME) 

PLEX$$ZKIDID 

( ) 

ON 

(KIDNAME . EMPKIDPK) 


FIGURE 6 


SAMPLE INDIRECT SECONDARY FIELD DESCRIPTORS 


REFORMAT 



Anchor 


I t 


Associate *1' 




FIGURE 7. SAMPLE DESCRIPTOR FILE 










FLDNAME 

ASSOCFIL 

SUBFILE 

SUBCNTRL 

.EX$$ 

EMPKIDID 


Z 

OFF 

n 

EMPKIDPK 


Z 

OFF 

It 

EMPKIDRS 


Z 

OFF 

M 

KIDNAME 


Z 

OFF 

11 

KIDPET 


z 

OFF 

I! 

KIDID 


z 

OFF 

II 

REGSECl 

1 



11 

EMPIMSCL 

1 



II 

EMPVEH 

1 

Y 

ON 

II 

EMPVEHID 

1 

y 

OFF 

II 

EMPVEHPK 

1 

y 

OFF 

IT 

EMPVEHRS 

1 

Y 

OFF 

IT 

VEHAIRCD 

1 

Y 

OFF 

II 

VEHMAKE 

1 

y 

OFF 

LEX$$1 

EMPVEHID 


Y 

OFF 

It 

EMPVEHPK 


Y 

OFF 

II 

EMPVEHRS 


Y 

OFF 

II 

VEHAIRCD 


Y 

OFF 

11 

VEHMAKE 


Y 

OFF 


INVFILE 


FIGURE 8. SAMPLE DUMMY FIELD DESCRIPTORS 
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TOPIC B.8 - DATA EASE IXECOTIVB 


A, DATA SET NAME: 

DBPI/I - DELIST Interface 

E. CBEATED BY: 

DB Preprocessor Function 

C, TYPE OF FILE: 

<4) Table 

D. ORGANI2ATICN: 

Documentary Table 

E- KEY IDENTIFIER (CCNTFOI FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PDPPOSE: 

The DBPL/I - DELIST Interface (see Table 1) specifies 
the DBLIST entry point name and the argument types and, 
order for the various DBPL/I statements* Thus, it 
serves to specify for the DE Preprocessor function (see 
Section IV, Topic B*5) what CALL statements are to be 
generated for each DBPL/I statement. Conversely, it 
specifies for DELIST (see Section IV, Topic B.5) what 
entry points will be entered and what and how 

information will be available at execution time for 
the performance of the various statement actions* 

The various entry points and their argument types ate 
declared by source code in SODECER. LI5RHAC member 
DBTEXT. Anv program that includes the DB preprocessor 
also is given DBTEET by an INCLDDE statement in D3* 
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TABIB 1. 


DBPL/I 


GENEBATEC PI/I 


FREE LIST; 

EBEE LIST (p1,p2) ; 

GET LIST(pl) KEY<0) ; 

GET LIST (pi) KEY INTO (st); 

GET LIST (pi) INTERNAL KEY INTO (St); 
GET LIST(p1) KEY(d) INTO(st); 

GET LIST (pi) KEY SET (p2) ; 

SET LIST(p2) SIZE(n) LIKE lIST(pl); 


CALL DEPAC; 

CALL BBPACP (pi) ; 

CALL DBGLKO(pl); 

CALL CBGLKI (p1,st) ; 
CALI DBGLIK (p1,st) ; 
CALL DBGLKN (p1,n,St) ; 
CALL DBGLKS<p1,p2) ; 
CALL DBSLLL(p2rC,p1) ; 


vhece? 

p1,p2 are POINTER 
n is FIXED BINABY(31) 

St is CHARACTER (-) VARYING 
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TOPIC C,1 - OTIIITIES 

A. DATA SET NAME: 

NASIS USEBIES 

B. CREATED BY: 

CHEATIDS (procdef) 

C. TYPE OF FILE: 

7ISAM 

E. ORGANIZATION: 

Variable format 

E, KEY IDEMTIEIER <CCNT8Ct FIEID) : 

8 Character NASISIC, key length 8, key position 4, 

F, RECORD LENGTH: 

4000 bytes 

G, BLOCKING FACTOR: 

Not Applicable 
PURPOSE: 

Haintain for each NASIS TDr the corresponding password, 
timeslice, user anthorlty and list of valid files* 
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TOPIC C.2 - GTIIITIES 

A. DATA SET RAHE: 

JOINIDS 

B. CEEATED BY; 

DSEHaOIM 

C. TYPE OF FIIE: 

VISAH 

D. OBGANIZATICN: 

Variable format 

E. KEY IDENTIFIER <CCNTBC1 FIEID) ; 

A JOINed TSS-ID, key lenqtb 6, key position 4. 

F. RECORD tENGTR; 

30 bytes. 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE; 

This is the list of JOINed TSS-IDs for the program 
MERGE. 
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TOPIC C.3 - DTIIITIES 

A. DATA SET BAHE; 

EDIT.LISEMLP 

B. CREATED BY; 

Not Applicable 

C. TYPE OF FItE; 

YISAH 

D. ORGANIZATION; 

Index Sequential 

E. KEY IDENTIFIER (CCNTRCI FIELD); 

The fifteen byte key is ccpposed of the eight byte 
message key concatenated to the seven byte line 
nunbec. 

P, RECORD LENGTH; 

V (132) 

G. BLOCKING FACTOR; 

Not Applicable 

H. purpose; 

This data set contains a copy of the BASIS system 
messages used by the various modules for prompting and 
diagnostic messages. After editing it, the DBA will 
use this file to replace the current system message 
file, LISRtlE (0) (LISRHLF) • 
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TOPIC D.1 - ffAINTENANCE 

A. DATA SET NAKE; 

SDBIOAD EPROB^CODES Table 

B. CREATED BT: 

BDBIOAE 

C. TYPE OF FILE: 

Core table 

D. ORGANIZATION: 

Sequential array 

E. KEY IDENTIFIER (CCKTSCI FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Defined as (0:216) character (1) 

G. BLOCKING FACTOR: 

Not Applicable 

H. paHPOSE: 

This table contains codes to be used to control 
action taken for each EBPAC error that may cccut. 


the 



PAGE 61 


TOPIC D.2 - MAINTENANCE 


A. DATA SET NAME: 

TRNSCT Data Set Descriptors 

E. CREATED EY; 

CORRECT (REECOER) 

C. TYPE OF FILE: 

VI ^Indexed) - Anchor 

D. ORGANIZATICN: 

Indexed Sequential (VISAM) 

E. KEY IDENTIFIER (CONTROL FIELD): 

Offset of 4, fixed field (255) 

F. RECORD LENGTH: 

4000 / V 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of the transaction data base is to serve as 
a temporarY repository for changes to one of the 
database datafilesr until the datafile ovner can 
validate the change and execute the maintenance program 
to apply it. 

The TRNSCT data base will consist of fields defined as 
follows: 

KEY - This will be an alphanumeric Fixed field 255 

bytes in length consisting of the data base 
name (padded to six characters with $) 
concatenated with the ORWER-ID, (padded to 
eight characters with *) of the affected data 
base concatenated with the anchor's key. The 
last fourteen (14) bytes of the key will be a 
time stamp field. 

NASISID - This will he an alphanumeric Fixed field, 8 
bytes in length, and will contain the 
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EASIS-ID of vhere the transaction was 
created* 

OPCODE - This is an alphanumeric Fixed field, 3 bytes 
in lenqth, which indicates the operation to 
te performed* 

FIELD - This is an alphanumeric Fixed field, 8 bytes 
in lenqth, which indicates the field of a 
data base which is to be updated* 

START - For field context operations, this field will 
contain the starting location of the context* 
It will be an alphanumeric Fixed field 4 
bytes in length* 

END - For field context operations, this field will 

contain the ending location of the context* 
It will be an alphanumeric Fixed field, 4 
bytes in lenqth* 

OIDDATA - A field which will contain data* This will 
be the cld data field in the instance of the 
field context* 

NEHDATA - A field which will contain data. This will 
be the new data field in the instance of the 
field context* 

SOBKEY - This is an alphanumeric fixed field, 10 bytes 
in length, which indicates the subfile key to 
be corrected. 

StJBCTL - This is an alphanumeric fixed field, 8 bytes 
in length, which is the subfile control field 
for subfile being corrected* 

One important consideration is that conversion, 
validation and reformatting routines can be written and 
used to check the data as it enters the data base, thus 
causing many errors to be detected before .maintenance 
is ever run* 
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TOPIC D*3 - 8ATKTENAKCE 

A. DATA SET NAWEl 

COBBECT Data Display Bormat 

B. CREATED B?: 

CORRECT (RDBCOPR) 

C. TYPE OF FIIE: 

Terminal Display 

D. ORGANIZATION: 

Not Applicable 

E. KEY IDENTIIIER (CCNTSCI FIEID) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to present as much of 
the data contained in the field as possible to the 
user* 
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CORRECT XXXXXXXX, XXXXX XXXXXXXXXX 
(lERGTH = 80r EtEMENlS = 4^ 

E001 tXXXXXXXX 

E002 :XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
002 XXXXXX 
E003 tXXXXXXXX 
E004 tXXXXXXXX 
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TOPIC D,4 - fJAINTENAUCE 

A. DATA SET NAME; 

HDBtOAD Error Data Set 
B* CREATED BY: 

Not Aoplicable 

C, TYPE OF FILE: 

VISAH or VSAM 

D. 0RGANI2ATICN: 

Seqaential 

E< KEY IDENTIFIER (CCNTSOI FIELD): 

(Bust be the same as that of the RDBLOAD input data 
set) . 

F. RECORD LENGTH: 

(Bust be the same as that of the RDBLOAD input data 
set) • 

G. BLOCKING FACTOR: 

Not Applicable 

H. PBRPOSE: 

This data set serves as the repository for all input 
records that cannot be successfully loaded. 
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TOPIC D.5 - MAINTESASCE 


A* DATA SET NAME; 

Database Inverted Index Fornat 

E. CREATED BY: 

A descriptor region is created by RDBEBIT (the 
descriptor editor) for each inverted index* It 
generally consists of a header record and three field 
descriptor records. 

Inverted index records are originally written by either 
HINVRTSS (the sort method of inversion) or 5DBIHVST (an 
inversion utility program) or FDBPAC (inverting 
concurrently with database loading) • 

C. TYPE OF FIIE: 

(6) Database Pile 

D* ORGANIZATICM; 

tSS VISA!! - Virtual Indexed Sequential Access Method 

E. KEY IDENTIFIER (CCKTRCl FIEID) : 

The index key field name is the same as the Indexed 
field name, e.q. A0THOB, SDEJTERH, KEYWORD etc. The 
VISAW key length is the maximuni (internal) length of 
the indexed values (plus 1 for a spanned index) and mav 
not exceed 255 bytes. 

F. RECORD LENGTH: 

Variable - 4000 bytes maxlmoiD. 

G. BLOCKING FACTOR: 

VISAS blocks records into pages of 4096 bytes. 

H. PDRPOSE: 

The purpose of the inverted index files is to give the 
system a fast, efficient method of storing and 
accessing the list of records in a database file that 
contain a particular data element value. 

The records of inverted files consist of a universal 
record form with a specialized structure. The 

structure consists of the concatenation of the 
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following fields? 

the VISAH record length field (BECLEN? 

4 bytes, fixed length, binary 

the VISAS Key field 

1-254 bytes, fixed length, indexed field element 
value 

optionally suffixed by 

1 byte, fixed length, binary record nuaiber within 
region if the index is SPANKED, 

the cross references field 

2 bytes, fixed length, binary field length 
followed by one or wore fixed length 

anchor or subfile internal key values in ascending 
collating sequence. 

In a SPANNED index, the first record of a region has 
key suffix zero, and possible continuation records (up 
to 255) in a continuous •region*. All records in a 
region, except possibly the last, are maximuio length 
<have the maximuB nuiober of whole cross references) • 
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TOPIC D.6 - MAINTENANCE 


A. DATA SET NAME: 

Descriptor Editor Data Display Forroat 

E. CREATED BYz 

Descriptor Editor DISPLAY Command (BDBEDDP) 

C. TYPE OF filet 
T erminal Display 

D. ORGANIZATICN: 

Not Applicable 

E. KEY IDENTIFIER (CCNTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The purpose of this display is to allov the user of the 
Descriptor Editor to review the specifications for a 
particular field descriptout 

I. SAMPLE DISPLAY: 


FIELD NAME 

FIELD TYPE 

ALXGNHENT*. 

FIELD FOBHAT 

FIELD LENGTH 

ELEMENT LENGTH,.,,. 

ELEMENT NUMBER 

UNIQUE ELEMENTS.,., 
CONVERSION ROUTINE, 
FORMATTING ROUTINE. 
VALIDATION ROUTINE. 
VALIDATION ARGUMENT 


xxxxxxnx 

XX 

X 

XX 

xxxx 

XXX 

xxxx 

X 

XXXXKXXX 

xxxxxxxx 

xxxxxxxx 

xxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxx xxxx xxxxxxxx 


xxxxxxxxxxxxxxxxxxxx xxxxxxxx X 
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X KXXXXXXXXXXXXX3XXXXXXXXXXXX 
INDEX FIXE ID 


INDEX KEY EOE« 

a . . X 

EXTEBNAl KEY XENGTH... 

... X 

INDEX SPANNED... ...... 

... X 

ASSOCIATE FILE ID 

• . a X 

SUBFILE CONTBOL FIELD. 

... X 

SUBFILE ID 

... X 

BASE FIELD NAME 

• • • XXXXXXXX 

BASE FIELD OFFSET 

. . * xxxx 

SOPEBFIELD COMPONENTS. 

• . .x.xxxxxxxx 

x.xxxxxxxx 

X. xxxxxxxx 

X. xxxxxxxx 

x.xxxx xxxx 

x.xxxxxxxx 

X* xxxxxxxx 

x.xxxxxxxx 

X. xxxxxxxx 

x.xxxxxxxx 

X. xxxxxxxx 

X. xxxxxxxx 

X. xxxxxxxx 

x.xxxxxxxx 

x.xxxxxxxx 

X. xxxxxxxx 

SECUHITY 

* . • xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 
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TOPIC D.7 - WAIDTENANCE 

A. DATA SET NAHE; 

Descriptor BSitor Field Maine Display Format 

B. CREATED BY; 

Descriptor Editor (FIEIDS) Command (EDBEDFD) 

C. TYPE OF FIIE: 

Terminal Display 

D. ORGANIEATICN: 

Not Applicable 

E. KEY IDENTIEIER (CCMTROI FIEID) t 
Not Applicable 

F. BECORD LENGTH: 

Not Applicable 

H. PORPOSE; 

The purpose of this display is to allow the user of the 
Descriptor Editor to review the names of all of the 
fields described thus far in CREATE mode* In UPDATE 
mode the user is presented a list of the descriptor 
descriptor field names* 
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SAKPLE DISPLAY: 

XXXXXXXXXXXXTXJfXXXXXXXXX 

xxxxxxxx xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx xxxxxxxx 

xxxxxxxx xxxxxxxx 

NOTE: A Total of 57 names can be displayed 
screen. 


on one 
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TOPIC D,8 • SfilNTENANCI 

A, DATA SET NAME; 

KDBIOAD Input Data Set 

B, CHEATED BT; 

Not Applicable 

C, TYPE OF PIIE; 

VISAS or VSAPf 

D, 0EGANI2ATTCN: 

Sequential 

E, KEY IDENTIFIES (CONTHOL FIELD): 

Usually sarte as that of the data base to be loaded* 

P. RECORD LENGTH; 

Not Applicable 

G, BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This data set serves as the source of input records for 
RDBLOAD. 
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TOPIC D,9 - MAINTESAKCE 

A, DATA SET KAHE: 

Descriptor Editor Listinq Eorroat 

B, CBEATED BY: 

Descriptor Editor Print Command (RDBEDPR) 

C, TYPE OF FILE: 

1403 Printer Display 

D, OEGANIZATICN: 

Not Applicable 

E, KEY IDENTIFIER 4CCNTRCL FTEID) : 

Rot Applicable 

F, RECORD LENGTH: 

133 

G, BLOCKING FJCTOR: 

Not Applicable 

H, PORPOSE; 

The purpose of this display is to list the contents of 
each descriptor field and each file descriptor in 
character form, 

I, SAMPLE DISPLAY: 

See Figure 1 



PAGE 75 


TOPIC D.10 - MAINTENANCE 

A. DATA SBT NAME: 

INVERT Restart File 
•INVERT. PAFM. • - 

vbere FILENAME is the six character dataplex name. 

B. CREATED BY: 

RDBSIVRT fflcdule* 

C. TYPE OF FILE: 

Seauential 

D. ORGANIZATION: 

VSAH 

E. KEY IDENTIFIER (CONTROL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

255 bytes (Variable) 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This file proxides a restart bey for the first phase of 
DBSIVRT. 


Preceding page blank 
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TOPIC D.11 - MAINTENANCE 

A* DATA SET NAME: 

INVEST SORTIN File 

«SOBTIK. • I IFIIENAMEI | • J fFIELD 

1. FILENAME is the six character data base name. 

2, FIELD is the 1-8 character field name that is 
beinq inverted. 

B. CREATED BY: 

First step of EBSIVET. 

C. TYPE OF FILE: 

Sequentia 1 

D. OSGANIZATICN: 

VSAM 

E. KEY IDENTIFIER (CCNTBCL FIELD): 

First field is the maximum length value of the field 
being inverted* 

F. RECORD LENGTH: 

4000 bytes (Variable) • Record consists of maximum 
length value of field being inverted concatenated with 
file Key. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This file is the input to the second step, which is the 
TSS sort step of CESIVRT. 
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TOPIC D.12 - HAINTENAKCE 

A. DATA SET NAME; 

IHVEET SOFTOOT File 

' SOFTOOT. < I 1FXLENAHBI | | FIELD 

1. FIIENAHE is the six character data base name. 

2. PIEID is the 1-8 character field name that is 
foelnq inverted* 

B. CFEATED BY: 

Sort step of DBSIVKT. 

C. TYPE OF FILE; 

Sequential 

E. OFGiiNiZATICK; 

VSAM 

E. KEY IDENTIFIER (CCBTECI FIELD): 

First field is the maximum length value of the field 
being inverted* 

F. RECORD LENGTH: 

4000 bytes (Variable). Record consists of maximum 
length value of field being inverted concatenated with 
the file Key. 

G. BLOCKING FACTOR; 

Hot Applicable 

H. PURPOSE; 

This file is the input to step three of DBSIVRT. 
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TOPIC D.13 - HAIKTEKAfICE 

a, DATA SET NAME: 

INVERT PlEX File 

•PLEX. • I IFIIENAHEH *. • 1 I FIELD 

1* FILENAHE is the six character dataplex name* 

2m FIELD is the 1-8 character field naise that is 
being inverted* 

B. CREATED BY: 

Step three of EBSIVRT. 

C. TYPE OF FILE; 

Indexed Sequential 

D. ORGSNIZATION; 

VISAM 

E. KEY IDENTIFIER (CCBTRCl FIELD): 

Key of file is internal field value being inverted 
concatenated with blanks up to the naxioua external 
field length* If index file is spanned, span character 
is concatenated as last position of Key* 

F* RECORD LENGTH: 

4000 bytes ^Variable) . Record is identical in format 
as an index file record* 

G. BLOCKING FACTOR: 

Hot Applicable 

H. PURPOSE: 

This file is the input to the last step, translation 
step, of DBSIVBT. 
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TOPIC D,14 - HAINTERANCE 

A. DATA SET RAKE; 

INVEST SANGE Pile 

•BANGE.' I I FILENAME I | FIELD 

1. FILENAME is the six character data base name. 

2* FIELD is the 1-8 character field naroe that is 
being inverted* 

B. CHEATED BY; 

Step three of EESXVBT if not indexed external, if 
indexed external, step four creates this data set* 

C. TYPE OF FILE: 

Indexed Sequential 

D. OEGANI2ATICN; 

VISAH 

E. KEY IDENTIFIER (CCHTROl FIELD); 

Key of the file is the oaximutn length value of the 
field being inverted* If index file is spanned, span 
character is concatenated as last position of Key* 

F. BECOFD LENGTH: 

4000 bytes (Variable). Record is identical to index 
file record* 

G* BLOCKING FACTOR: 

Not Aoplicable 

H* PURPOSE: 

This file is the input to the combine module for index 
updates* 
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TOPIC D.15 - HAIKTENANCE 


A, DATA SET NABE: 

DESCRP.CHKFOINT 

B. CPEATED BY; 

Descriptor Editor Checkpoint (SDBEDCP) 

C« TYPE Of PILE; 

TSS VAH 

D. OfiGANITATION; 

Secue ntial 

E. KEY IDENTIFIES (CCNTBOt FIELD) ; 

Not Applicable 

F. BECORD LENGTH: 

The records are of varying length of which the maximaa 
is dynamically determined at execution time. The 
maximum possible value is 4000* 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE: 

The purpose of this dataset is for storing sufficient 
information from the descriptor tables so that the user 
can continue creating the descriptor file at a future 
time through use of the RESTORE command. 

The first record consists of those items from the X 
structure whose value must be preserved. The second 
record consists of the entire content of the FIELD 
structure. The next group of records will contain the 
field descriptor information. There will be one record 
for each existing field, consisting of the information 
in the appropriate FLD structure concatenated with the 
information contained in the appropriate SECURITY, 
SUPER, and VALID structures where applicable. 
Following the field descriptor records are records 
containing the header descriptor information, one for 
each existing file. These records consist of the 
information from the appropriate HDR structure 
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concatenated to the infcrmation from the proper RECSEC 
structure vhen applicable. 
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TOPIC D.16 - flAIRTENANCE 

A. DATA SET NAHE: 
fflERGE INEEX file 

"INDMHG.PABM. V/FItEHAnE - FItEHAKE is the 
character data base name. 

B. CHEATED BY: 

RDBINDH MODULE 

C. TYPE OF FILE: 

SEOOENTIAL 

D. QBGANI2ATICN: 

VSAM 

E. KEY IDENTIFIER fCCNTEOI FTEID) : 

Not Applicable 

F. RECORD LENGTH: 

255 Bytes <Yariable> 

G. BLOCKING FACTOR: 

Not Applicable 

fl, PURPOSE: 


six 


This file provides a restart Key for restart of 
DBINDM, 
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TOPIC D.17 - MAINTEKAHCE 

A. DATA SET »ABE: 

Descriptor Editor PEVIES Display Format 

B. CEEATED BY: 

Descriptor Editor HEYIEH Command (fiDBEDB?) 

C. TYPE OF FILE; 

Terminal Display 

D. 0BGANI2ATICN: 

Not Applicable 

E. KEY IDENTIFIER (CCKTFCI FIELD): 

Not Applicable 

F. PECOBD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Rot Applicable 

H* POFPOSE: 

The purpose of this display is to allow the user of the 
Descriptor Editor to review the exact contents of any 
descriptor record in any descriptor region* 
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SA8PIB DISPLAYS: 
Fill DESCBIPTOP 


SUFFIX 

CESCRCI 

DBSCOK 

DATA 

HNTNING 

RECSECFP 

BSECTYCD 


X 

xxxxx 

X 

X 

X 

xxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 

xxxxxxxx 


XX 

XX 

XX 

XX 

XX 

XX 

XX 

XX 

XX 


FILSTYPE=x 
BSEXNGTfl=xxxxx 
SPANNED =X 
MNTNAB1E=X 
tCADABlE=x 
REGAINS *xxxxxxxx 
xxxxxxxx:xx 
xxxxxxxx: XX 
xxxxxxxx:xx 
xxxxxxxxtxx 
xxxxxxxx:xx 
xxxxxxxxtxx 
xxxxxxxxtxx 
xxxxxxxxtxx 
xxxxxxxxtxx 



FIELD DESCBIPTOB 


FLDBAME 

StTEFILE 

READOSIY 

VARFLD 

NOMALIGN 

tINIQDEIT 

GENEBCST 

BEPORWAT 

PLDEM 

FLDLEN 

ELTIIM 

SPARE 

VALIDARG 


NAHEFLD 


SECURITY- 


XZXXXKXX 

ASSOCFIL=x 

X 

INYFILE =x 

X 

INFIIS =x 

X 

BITFID =X 

X 

VABSIT -X 

X 

INBBXEXT^x 

xxxxxxxx 

FA tIDPTN=»x xxxxxxx 

xxxxxxxxx 

FLDPOSIT=XXXXX 

xxxxx 

DFLDIEK =xxxxx 

xxxxx 

DELTIIM =xxxxx 

xxxxx 

DEITIEN *xxxxx 

XXXXXXXXXXXXXXTX 

XXXXXXXXXXXXXIXXXXXXXXXXXXXXXXX 

XX XX XXX xxxxxxxx xxxxxxxxx xxxxx XX 

xxxxxxxxx XXX X xxxxxxxxx xxxxxxxxx 
xxxxxxx 

x« xxxxxxxx 

x» xxxxxxxx 

x« xxxxxxxx 

X. xxxxxxxx 

x« xxxxxxxx 

X* xxxxxxxx 

X* xxxxxxxx 

x.xxxxxxxx 

X* xxxxxxxx 

X* xxxxxxxx 

X# xxxxxxxx 

x.xxxxxxxx 

K.XXXXXXXX 

x» xxxxxxxx 

X. xxxxxxxx 

x.xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 

xxxxxxxx 

xxxxxxxx xxxxxxxx 
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TOPIC D.18 - WAINTENANCE 

A. DATA SET SAME: 

BEPIEtE which consists of the external stracture PIELD 

B. CSEATED BY: 

Not Applicable 

C. TYPE OF FIIE; 

Table 

D. OHGANIZATICS: 

Pl/I Data Structure 

E. KEY IDENTIFIEB <CC5TSCt FIELD); 

Not Applicable 

F. BECOHD lENGTH; 

Mot Applicable 

G. BLOCKING FACTOB: 

Mot Applicable 

H. PURPOSE; 

This table is used to contain the names and core 
locations of all the field descriptor during the 
running of a retrieval session* 
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I. PI/I DECtAB&TICK; 

THIS STEtJCIHBE IS OSEB TO CONT&IN THE FIELD NAMES AND 
THEIE BESPECTIVE 5ID POINTEHS. 


t FIELD BASED (I. FIELD PTB) , /♦ FIELD NAMES AND ♦/ 

/♦ * PGINTESS STBUCTUBE. ♦/ 

3 BECLEN EIN (31) FIXED, /♦ BECORD LENGTH FOR */ 

/♦ ASMPOT. THIS IS USED IN ♦/ 

/♦ CHKPOINT COMMAND. IT IS */ 

/♦ SET EQUAL TO ELT LENGTH OF ♦/ 
/* FIELD STRUCTURE. ♦/ 

3 LAST BIN FIXED, /* INDEX OF LAST TABLE ENTHY. ♦/ 

3# BIN FIXED, /♦ HUMBER OF ENTRIES IN TABLE.*/ 

3 A (X.#PN REFER (FIELD.#)), 

5 NAME CHAR (8), /♦ FIELDNAME ARRAY. */ 

5 PTR PTR; /♦ FLD STROCTUBB POINTERS. */ 
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TOPIC D.19 - KAINTENANCE 

A. DATA SET NAME: 

DEHECSEC which consists of the structures BECSEC and 
RECSEC STR 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE; 

Table 

D. ORGANIZATTCN: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTROL FIELD) : 

Not Applicable 

F. RECORD LfNGTR: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H* PURPOSE; 

The RECSEC structure is used to contain the record 
security codes that pertain to a given file* 
RECSEC_5TR is a character string overlay of the RECSEC 
structure • 
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I. Pl/I DECLA5ATI0N* 

THE HECSEC STBOCTTJHE IS HSED TO STOBE THE HECOfiD 
SECURITY CODES AND SECURITY «ASKS USED TO lETERHINE 
RECCED SECURITY. THE RECSEC STRUCTURE IS POINTED TO BE 
HDR.RSECTYCD FIEIC flHEN THE FILE HAS RECORD SECURITY 
DEFNED ON IT. 


RECSEC 

BASED 

(X.R5EC PTR) , /* RECORD SECURITY 

♦/ 





/* 

CODES STRUCTURE. 

*/ 

3 


BIN FIXED, 

/♦ 

NUMBER OF SECURITY CODES. 

*/ 

3 

SECURITY 

(18) , 






5 CODES CHAR 

(8), 


USER PASSWORD. 

♦/ 


5 HASK 

CHAR 

(2) r 

/♦ 

RECORD ACCESS CODE. 

♦/ 

3 

CHANGED 

(18) BIT (1), 

/♦ 

ONE FLAG FOR EACH SECURITY 

♦/ 





/♦ 

CODE. IF ON THEN REPOT NEN 

♦/ 






VAIUE. 

♦/ 

3 

FILLER 

CHAR 

(8) ; 


NEEDED FOR PLI BOG. 

*/ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY OF THE 
RECSEC STRUCTURE. IT IS USED FOR BAKING 
COPIES OF THE RECSEC STRUCTURE. 


DCL RECSEC STH CHAR (193) BASED (T. RSBC_PTR) 1 

/* RECSEC STRUCTURE OVERLAY. */ 
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TOPIC D.20 - aAINTEKAKCE 

A. DATA SET I3AHE: 

DESECTJP vhich consists of the structure SECDEITY and 
SECtJRITY_STR. 

B. CREATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCHTRCl FIEID) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR; 

Not Applicable 

H. PORFOSE: 

The SECURITY structure is used to contain the security 
codes defininq field security for a qiven field. 
SECUFITY_STR is a character string overlay of the 
SECURITY structure. 
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I, PL/I DECLAPATION 

THE SECHfilTT STRUCTOBE IS USED TO STORE THE FIELD 
SECDBITI CODES DEFINED FOR A GIFIN FIELD* XT IS 
POINTED TO BY THE PID.SECHRITY FIELD OM WHICH THIS 
FIELD SECURITY IS CEFINED. 


1 SECURITY BASED <X*FSEC PTB) , /♦ FIELD SECURITY ♦/ 

/♦ CODES STRUCTURE* ♦/ 

3 # BIN FIXED, /♦ NOHBER OP SECURITY CODES ♦/ 

/* FOR THIS FIELD. */ 

3 CODE <18) CHAR <8> , /♦ SECURITY CODE VALUES- ♦/ 

3 CHANGED (18) BIT (1), /♦ ONE FLAG FOR EACH SECURITY ♦/ 

/* CODE. IF ON THEN REPOT THE */ 
/♦ HEW VALUE. */ 

3 FILLER CHAR (8); /* NEEDED FOR PII BUG. */ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY OF THE 
SECURITY STRUCTURE. IT IS USED FOR BAKING COPIES OF 
THE SECURITY STRUCTURE. 

DCL SECURITY STR CRIfi (157) BASED (X. FSEC_PTR) ; 

/* SECURITY STRUCTURE OVERLAY.*/ 
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TOPIC D,21 - WAINTEHAl^CE 
fi. DATA SET NAME: 

DESOPEE which consists of the structure SOPER and 
SOPEB_STE. 

B. CREATED BY; 

Not Applicable 

C. TYPE OP FIIE; 

Table 

D. OHGANIZATICS: 

Pl/I Data Structure. 

E. KEY IDENTIFIER (CCKTECL PIEID) : 

Not Applicable 

F. RECORD lEKGTR: 

Not Applicable 

G. BtOCKiNG FACTOR; 

Not Applicable 

R, PURPOSE; 

The SOPER structure is used to contain the superfield 
component information of a field descriptor. SOPEF^STR 
is a character string overlay of the SOPER structure. 
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I. PL/I DECIAFATICN: 

THE SOPEB STRDCTTISE IS OSED TO STORE THE S0PEREIELD 
COMPONENTS OF B SOPER DESCRIPTOR. IT IS POINTED TO BT 
THE FLD.NAMEFLD OF THE DEFINING StJPERFIELD. 


1 SUPER 


BIN FIIED, 


3 # 

3 NAME (16) , 

5 CODE CHAR (1) , 

5 FIELD CHAR(8), 

3 CHANGED (16) BIT (1) , 


EASED (X. SOPER PTP) , /♦ SUPER FIELD ♦/ 

/♦“component FIELDNAMES ♦/ 

/* STBUCTDFE. */ 

/♦ NUMBER OF COMPONENT NAMES. ♦/ 


3 FILLER 


CHAR (8); 


/♦ INTERNAL-EXTERNAL INDICATOR*/ 
/♦ COMPONENT FIELD NAMES. ♦/ 
/* ONE FLAG FOR BACH COMPONENT*/ 
/* NAME. IF ON THEN REPOT THIS*/ 
/♦ COMPONENT NAME. ♦/ 
/♦ NEEDED FOR PLI BOG. */ 


THIS STROCTORE IS A CHARACTER STRING OVERLAY OF THE 
SOPER STROCTORE. IT IS USED FOR MAKING COPIES OF THE 
SUPER STRnCTORE. 

DCL SOPER ETR CHAR (156) BASED (X, SOPER^PTR) ; 

/♦ SOPER STROCTORE OVERLAY. ♦/ 
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TOPIC D.22 - KaiUTENflNCE 
fi. DATA SET NABE: 

DEVALID which consists of the structure ^ALID 

E. CREATFC BY: 

Not Applicable 
C« TYPE OF FIIE: 

Table 

D. OHGANT2ATICN: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTBOL FIELD): 

Not Applicable 

F. RECORD LENGTH; 

Not Aoplicable 

G. BLOCKING FACTOR; 

Hot Applicable 

H. PORPOSE; 

This structure is used to contain the validation 
argument fcr a field descriptor. 
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I. PL/I DECIAPATIOK; 

THE ?ALID STPOCTHFE IS DSED TO STOBE A VAIIDATIOH 

AHGOHENT IF ONE IS DEFINED FOB THE FIELD, IT IS 
POINTED TO EY FIC.VAIIDARG IN THE FIELD TO WHICH THIS 
ARGUMENT BELONGS, 

1 VALID BASED <X.AEG PTR) , /* VALIDATION ARGUMENT */ 

7* STSOCTOBE. ♦/ 

3 LNGTH BIN FIXED, /♦ LENGTH OF VALIDATION ♦/ 

/* ABGDMENT. •/ 

3 ARGUMENT CHAR (I.LVA REFER (VALID. LNGTH) ) ; 

/♦ VALIDATION ARGUMENT, »/ 
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TOPIC D.23 - MAINTENANCE 

A, DATA SET NAME? 

DEFLD vhich consists of the fcased structures 
FLD and FID STRING 

B, CREATED BY; 

Not Applicable 

C, TYPE OF FILE: 

Table 

D, ORGANIEATTON; 

PL/I Data Structure 

E, KEY IDENTIFIER (CCNTROL FIELD): 

Not Applicable 

F, SECORD LENGTH 
Not Applicable 

G, BLOCKING FACTOR? 

Not Applicable 

R. PDRPOSE; 

The FLD structure is used to contain the information 
describing a field descriptor. FLD^STPING is a 
character string used to overlay the FLD structure. 
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I. Pt/X DEC1AB&7ICN: 

TBIS SlEnCUTBE IS TJSED TO STOPE THE IWEOfiBATION 
DEFINING a FIEIC tESCRIPTOS. 

1 FLD BASED (I, FID PTE), /♦ FIELD DESCEIPTOE */ 






/* 

STRUCTURE. 

♦/ 

3 

BACKWARD 

PTB, 


/♦ 

BACKWARD FLD POINTER. 

*/ 

3 

FGBWARD 

PTB, 


/♦ 

FCRHftBt FLD POINTER. 

*/ 

3 

FLDNAME 

CHAR 

(8), 

/♦ 

FIFLD NAME. 

*/ 

3 

ASSOCFIL 

CHAR 

(1) , 

/♦ 

ASSOCIATE FILE IDENTIFIER. 

*/ 

3 

SUBFILE 

CRAB 

(1) . 

/♦ 

SUBFILE IDENTIFIER. 

*/ 

3 

INVFILE 

CHAR 

(1)r 

/♦ 

INVERTED FILE IDENTIFIER. 

*/ 

3 

READONLY 

CHAR 

(1) r 

/♦ 

FIELD READ ONLY FLAD. 

*/ 

3 

SUBCNTEl 

CHAR 

(1), 

/* 

FIELD A SUBFILE CONTROL FLD*/ 

3 

VABFLD 

CHAR 

(1)# 

/* 

VARYING LENGTH FIELD FLAG. 

♦/ 

3 

BTTFLD 

CHAR 

<1) » 

/♦ 

FIELD IS FIXED LENGTH 

•/ 





/♦ 

BIT STRING OF LENGTH ONE. 

*/ 

3 

NDBALIGN 

CHAR 

(1) , 

/♦ 

FIELD ALIGNMENT FLAG. 

*/ 

3 

VARELT 

CHAR 

(Dr 

/♦ 

FIELD ELEMENTS OF VARYING 

*/ 





/* 

LENGTH FLAG. 

♦/ 

3 

DNIOtlELT 

CHAR 

<1)r 

/* 

ELEMENTS UNIOUE FLAG. 

*/ 

3 

INDEXEXT 

CHAR 

(1>r 

/* 

INDEX KEYS TO BE IN 

*/ 





/♦ 

INTERNAL OR EXTERNAL FORM 

*/ 





/♦ 

FLAG. 

*/ 

3 

FILLER 

CHAR 

<1)r 

/♦ 

BODNDRY ALIGNMENT. 

♦/ 

3 

GENERCRT 

CHAR 

<8), 

/♦ 

CONVERSION ROUTINE NAME. 

♦/ 

3 

VALIDSTN 

CHAR 

(8) , 

/♦ 

VALIDATION ROUTINE NAME. 

•/ 

3 

REFORHAT 

CHAR 

(8) , 

/* 

FORMATTING ROUTINE NAME. 

*/ 

3 

SPARE 

CHAR 

(16), 

/♦ 

UNUSED DESCRIPTOR FIELD. 

*/ 

3 

FLDPOSIT 

BIN 

FIXED, 

/♦ 

FIELD POSITION VALUE. 

*/ 

3 

FLDLEN 

BIN 

FIXED, 

/♦ 

FIELD LENGTH VALUE. 

*/ 

3 

DFLDLEH 

BIN 

FIXFD, 

/♦ 

MAXIMUM FIELD LENGTH OF ALL*/ 





/♦ 

VALUES STORED ON THE DATA 

♦/ 





/* 

BASE. 

*/ 

3 

EITLIM 

EIN 

FIXED, 

/♦ 

MAX NUMBER OF ELEBENTS/PLD, 

*/ 

3 

DELTLIH 

BIN 

FIXED, 

/♦ 

MAXIMUM ELEMENTS STORED IN 

♦/ 





/* 

THIS FIELD IN THE DATA BASE*/ 

3 

ELTLEN 

BIN : 

FIXED, 

/♦ 

ELEMENT LENGTH VALUE. 

♦/ 

3 

DEITLEB 

BIB 

FIXED, 

/♦ 

MAXIMUM ELEMENT LENGTH 

*/ 





/♦ 

OF ALL OF THE ELEMENTS 

*/ 





/♦ 

STORED FOR THIS FIELD IN 

♦/ 





/♦ 

THE DATA BASE. 

♦/ 

3 

FALICABG 

PTR, 


/• 

POINTER TO VALIDATION 

*/ 





/* 

ARGUMENT IF ANY. 

*/ 

3 

NASEFLD 

PTR, 


/♦ 

POINTER TO LIST OF FIELD 

*/ 





/♦ 

NAMES MAKING UP SUPER FIELD*/ 

3 

SECURITY 

PTR, 


/♦ 

POINTER TO FIELD SECURITY 

♦/ 





/* 

CODES IF ANY. 

*/ 

3 

BASEFLD 

CHAR 

(8)r 

/* 

THE FIELDNAME ON WHICH A 

*/ 





/♦ 

SOBFIEID IS TO EE DEFINED. 

*/ 

3 

OFFSET 

EIN 

FIXED, 

/* 

THE OFFSET WITHIN THE BASE 

*/ 





/* 

FIELD THAT THE SOBFIEID 

*/ 
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/♦ STAPTS. */ 

3 FIIE LIST BIN FIXED, /♦ ON WHICH ENTBY IW ftC_TAB ♦/ 

HAS THIS FIELD BEEN HUNG. ♦/ 
3 FLDTYPE BIN FIXED, /♦ ENTHY INTO FIELD TYPE TSBLE*/ 

/♦ DEFINING WHICH TYPE OP ♦/ 

/♦ FIELD THIS IS, */ 

3 CHANGED (28) BIT (1), /* ONE FLAG POP EACH ITEH IN */ 

/♦ FID STPDCTDRE, IF ON THEN */ 
/♦ FOT NEW VALUE IN DESCBIPTOB*/ 
/♦ FILE. */ 

3 PILLEH2 CHAP (8) ;/♦ NEEDED FOB PL/I BUG. */ 

THIS STBOCTORE IS A CHABACTEH STEING OVERLAY ON THE FLD 
STBUCTURE. IT IS USED FOP MAKING COPIES OF THE FLD 
STRUCTURE, 

DCL FLD STRING CRAP (122) BASED (X.PLD_PTP); 

/♦ FLD STBUCTDPE OVERLAY. ♦/ 
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TOPIC D.24 - MAINTEUANCE 

A. DATA SET KAHE: 

DEXINIT which ccnsists of the X external data structure 
including all initiali-zation values. 

B. CREATED BY: 

Not Applicable 

C. , TYPE OF FIIE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTRCl FIEID) ; 

Not Applicable 

T. RECORD LENGTH: 

Not Applicable 
G. BLOCKING FACTOR: 

Not Applicable 
R. PDRPOSE: 

The X structure is used to contain common variables and 
information used to control the flow through the 
descriptor editor 
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TOPIC D*25 - HAIKTEBANCE 

A, DATA SET NAME: 

DEX which consists of the X external data structure 
minus all initialization values* 

B. CBEATED BY: 

Not Applicable 

C. TYPE OF FILE: 

Table 

D, ORGANIZATION: 

PL/I Data Structure 

E, KEY IDENTIFIER fCCSTROl FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G, BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The X structure is used to contain common variables and 
information used to control the flow through the 
descriptor editor* 
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!• PL/I DECIAFATICM: 

THE X STEOCTDHE IS A COLLECTION OF MINOP STEOCTOHES AND 
SINGLE VARIABLES OSFD IN THE RtJNNING OF THE DESCRIPTOR 
EDITOR. THESE RINOF STSDCTHPES CONSIST OF PBEDEFINED 
FLD, HDF, RECSEC SECHRITY, AND SUPER STRUCTURES, AS 
NELL AS THE INPUT OUTPUT WORK AREAS FOR THE VARIOUS 
STRUCTURES. THE OTHER MINOR STRUCTURES ARE A LIST OF 
RESERVED FIELD NAMES AND A LIST OF FIELDS WHICH ABE TO 
EE DELETED FROM THE lESCRIPTOR FILE WHEN THE CURRENT 
DESCRIPTORS ARE FILED TO HAKE THE DESCRIPTOR FILE 
ACCURATE. 


1 X EXT CTt, /♦ EXTERNAL CONTROLLED ♦/ 

/* BLOCKED VARIABLES. ♦/ 

THIS MINOE STRUCTURE IS THE PREDEFINED COMMENTS FIELD 
DESCRIPTOR. 

3 FLD_COMMENTS LIKE FLD,/*COMMENTS FIELD DESCRIPTOR*/ 

THIS HINOF STRUCTURE IS THE PHEDBFIHEt FREEFORM FIELD 
DESCRIPTOR. 

3 FLD^FREEFORM IIKE FLD, /»OSER ENTERED KETSORDS */ 

THIS MINOR STRUCTURE IS THE PREDEFINED RECORD SECURITY 
FIELD DESCRIPTOR. 

3 FLD_RS LIKE FID, 

/• RECORD SECURITY DESCRIPTOR,*/ 
THIS MINOR STRUCTURE IS THE PREDEFINED BASE FOB A SDBFIIE 
CONTROL FIELD DESCHIPTCE. 

3 FLD_SOECNTRL LIKE FLD, 

THIS MINOF STRUCTURE IS THE PREDEFINED BASE FOB A 
SUBFILE KEV FIELD DESCBIFTCF. 

3 FLD^SUEIE LIKE FLD, 

THIS MINOR STRUCTURE IS THE PREDEFINED BASE FOR A 
SUBFILE PARENT KEY FIELD DESCRIPTOR. 

3 FLD_SUEPK LIKE FLD, 

THIS MINOR STRUCTURE IS THE PREDEFINED HEADER 
DESCRIPTOR RECORD FOP THE ASSOCIATE FILE CONTAINING 
COMMENTS AND FREEFORM FIELD DESCRIPTORS. 


3 HDE ASSOC 


LIKE RDR,/* HEADER FOR COMMENTS AND */ 
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THIS MINOP STBDCTDPE IS THE PEEDEPINED HEADER 
DESCRIPTCH PECOPD THE INDEJt FILE ON WHICH THE FIELD 
FREEFOPH IS INEEXEC. 

3 HOP INDEX LIKE HDR, 

/♦ INDEX FILE HEADER FOP DSEP */ 
/♦ KEYWORDS STORED IN FPEEFOHR^/ 

THIS HINOF STRDCT0PE IS ft PREDEFINED INITIALI ED FID 
STRDCTOPE-. IT IS OSED TO IKITIAlt E A NEWLY ALLOCATED 
FLD STROCTDRE. 

3 INIT FLD IIKE FID, 

/♦ FIELD DESCRIPTOR INITIAL ♦/ 
/♦ VALDES. */ 

THIS HINOE STROCTDRE IS R PREDEFINED INITIAII ED HDR 
STROCTDRE. IT IS OSED TO INITIALI E A NEWLY ALLOCATED 
HDB STROCTDRE. 

3 INIT HDR IIWB HDR, 

/♦ HEADER DESCRIPT*OR INITIAL */ 
/* VALDES, */ 

THIS MINOR STROCTDRE IS A PBEDEFINED INITIALI ED 
SECURITY STROCTDRE. IT IS OSED TO INITIALI E A NEWLY 
ALLOCATED SECORITY STROCTUEE. 

3 INIT SECDSITY, /* FIELD SECORITY STROCTDRE */ 

/* INITIAL VALDES. */ 

5 # EIN FIXED, 

5 CODE (18) CHAR <8! 

5 CHARGED (18> BIT (1) , 

5 FILLER CHAP <8) ,/♦ NEEDED FOR PLI FOG. ♦/ 

THIS MINOR STHDCTOBE IS OSED FOR ALI 10 OPERATIONS TO 
AND FROH THE EESCEIPTCP FILE INVOLVING FIELD DESCRIPTOR 
RECORDS, ALL FIELD DESCRIPTOR INPUT FROH THE 
DESCRIPTOR FILE IS PLACED INTO THIS WORK AREA BEFORE 
BEING MOVED TO AN AILCCATED FLD STROCTDRE, BEFORE 
OOTPDTTING TO A FIELD DESCRIPTOR ON THE DESCRIPTOR 
FILE, THE FIELD INFOPHATICN IS MOVED INTO THE 10 FLD 
STROCTDRE. THIS IS NECESSARY BECAUSE DBPAC REQUIRES 
ALL 10 INTO AND FRCM TO EE DONE FROH VARYING LENGTH 
CHARACTER STRINGS, 

3 lO-FLD, /♦ FIELD DESCRIPTOR WORK AREA ♦/ 

/♦ STRUCTURE, ♦/ 


5 

BACKWARD 

PTR, 

/♦ 

BACKWARD FIELD POINTER. 

*/ 

5 

FORWARD 

PTH, 

/♦ 

FCRWARD FIELD POINTER. 

*/ 

5 

FLENAME 

CHAR 

(B) 

VAR,/» 

FIELD NAME* 

*/ 

5 

ASSOCFIL 

CHAR 

(1) 

VAR,/* 

ASSOCIATE FILE ID, 

*/ 

5 

SUBFILE 

CHAR 

(1) 

VAR,/* 

SOBFILE IDENTIFIER. 

*/ 
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5 INVFItl CBAR (1) VAR,/* INVESTED FILE ID. */ 
5 READCNIY CHflS (1) VAB,/* FIELD BEAD ONLY FLAG.*/ 
5 SDBCKTFL CHAR <1) VAB,/* FIELD IS A SUBFILE ♦/ 

/♦ CONTROL FIELD. */ 
5 VABFID CHAR <1) VAB,/* VABGING LENGTH FIELD.*/ 
5 BITFLD CHAR (1) VAR,/* FIXED LENGTH BIT ♦/ 

/* STRING OF LENGTH ONE. */ 
5 SUHALIGN CBAB |1) VAR,/* FIELD ALIGNMENT FLAG.*/ 
5 VARSLT CBAB (1) VAB,/* FIELD ELEMENTS OF */ 

/* LENGTH FLAG, */ 
5 UNTOOELT CHAR (1) VAR,/* ELEMENTS UNIQUE FLAG.*/ 
5 INDEXEXT CBAB (1) VAB,/* INDEX KEYS TO BE IN ♦/ 

/* INTEBHAL OB EXTERNAL FORM */ 
/♦ FLAG. */ 


5 FILLER CHAR <1) VAR,/* BOOMDRY ALIGNMENT. ♦/ 
5 GENERCRT CHAR (8) VAR,/* CCNVEBSION RTN NAME. ♦/ 
5 VALIERTN CHAR {&) VAB,/* VALIDATION HTN NAME. */ 
5 BEFOEMAT CBAR (8) VAR,/* FORMATTING RTN NAME. ♦/ 
5 SPARE CHAR (8> VAR,/* UNUSED DESCRIPTOR FIELD. ♦/ 
5 PIDPCSIT CHAR (2) VAR,/* FLELD POSITION VALUE.*/ 
5 FL.DLEN CBAR (2) VAR,/* FIELD LENGTH VALUE, */ 
5 DFLDtEN CHAR (2) VAB,/* MAXIMUM FIELD LENGTH,*/ 
S ELTLIM CHAP <2) VAR,/* MAX NUMBER OF ♦/ 

/♦ ELEMENTS / FIELD. ♦/ 
5 DELTtIM CBAR (2) VAR,/* MAXIMUM # OF ELEMENTS*/ 
5 EITLEN CBAB (2) var,/* ELEMENT LENGTH VALUE,*/ 
5 DELTIEN CHAR (2) VAB,/* MAXIMUM ELEMENT LNGTH*/ 


5 VALIDASG PTR, /* POINTEB TO VALIDATION ♦/ 

/* ARGUMENT IF ANY. */ 

5 NAMEFLD PTB, /* POINTEB TO LIST OF FIELD */ 

/* NAMES MAKING OP SUPER FIELD*/ 
5 SECOEITY PTR, /* POINTER TO FIELD SECUBITT ♦/ 

/* CODES IF ANY. */ 

5 BASEFLD CBAB (8),/* SDBFIELD DEFINING BASE. */ 

5 OFFSET BIN FIXED,/* OFFSET IN BASEFIELD */ 

/* SOBFXELD IS TO START, */ 

5 FILE^LIST BIN FIXED,/* WHICH ENTRY IN FLD_TAB. */ 

5 FLDTYPE BIN FIXED,/* TYPE OF FIELD. */ 

5 CHANGED (20) BIT (1),/* ONE FLAG FOR EACH ITEM ♦/ 

/♦ IN FLD STRUCTURE. IF ON */ 
/* THEN PUT NEW VALUE IN */ 

/* DESCRIPTOR FILE, */ 

5 FILLEB2 CHAR (8),/* NEEDED FOB PLI BUG. ♦/ 

THIS MINOB STBOCTUBE IS USED FOB ALL 10 OPERATIONS TO 


AND FROM THE DESCFIPTOR FILE INVOLVING HEADER RECORDS. 
ALL INPUT FROM TBE DESCFIPTOR FILE INVOLVING HEADER 
BECCBDS IS PLACED IN THE 10 FDR STRUCTURE BEFORE BEING 
MOVED TO AN AILCCATED HDB STRUCTURE. TO OUTPUT A 
HEADER EECCRD, THE INFORMATION IS MOVED INTO THE lO-HDR 
STRUCTURE BEFORE BEING PLACED ON THE FILE. THIS IS 
NECESSARY BECAUSE DBPAC REQUIRES ALL 10 TO BE DONE IN 
INTO AND PROM VARYING LENGTH CHABACTEB STRINGS. 
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3 IO_HDR, /♦ HEADER DESCRIPTOR iOFK AREA*/ 

5 EACKRABD PTR, /* BACKT3ARD HEADER POINTER. */ 

5 FORWARD PTF, /* FCRRARE HEADER POINTER. */ 

5 SDFFIX CHAR (1) VAR,/* WHICH FILE THIS ♦/ 

/♦ HEADER BELONGS TO. ♦/ 

5 FILETTPE CHAR (1) VAR,/* TYPE OF FILE INDICATE*/ 

5 DESCRCT CHAR (2) VAR,/* NOHBEF OF FIELD */ 

/♦ DESCRIPTORS ON THIS FILE, */ 
5 BSELNGTH CHAR <2) VAR,/* TOTAL LENGTH OF FIXED*/ 

/♦ FIELDS ON THIS FILE. */ 
5 DESCCK CHAR (1) VAR,/* DESCRIPTORS OK FLAG. ♦/ 

5 SPANNED CHAR (1) VAR,/* THIS INDEX TO CONSIST*/ 

/♦ OF SPANNED RECORDS FLAG. */ 
5 DATA CHAR (1) VAR,/* DATA IS ON FILE FLAG.*/ 

5 HNTNABIE CHAR (1) VAR,/* FILE CAN BE */ 

/* MAINTAINED FLAG. */ 

5 HNTNING CHAR <1) VAR,/* FILE BEING MAINTAINED*/ 

/* FLAG. */ 

5 LOADABLE CHAR (1) VAR,/* FILE CAN BE LOADED. */ 

5 REMAINS CHAR (4) VAR,/* UNUSED DESCRIPTOR ELD*/ 

5 RECSECFP CHAR (2) VAR,/* FILE HAS RECORD */ 

/♦ SECURITY FLAG. */ 

5 RSECTYCD PTR, /♦ POINTER TO RECORD ♦/ 

/* SECURITY CODES IF ANY, */ 
5 CHANGED (13) BIT (1),/* ONE FLAG FOR EACH ITEM */ 

/* IN HEADER STRUCTURE. IF ♦/ 
/* ON THEN POT NEW VALUE ♦/ 

/* IN THE DESCRIPTOR FILE. */ 
5 EULER CHAR (8),/* NEEDED FOR PLI BUG. ♦/ 

THIS MINOR STRUCTURE IS USED FOR ALL 10 OPERATIONS TO 
AND FROM THE DESCRIPTOR FILE INVOLVING FIELD SECURITY 
CODES. 

3 IO_SECURITY, /♦ FIELD SECURITY STRUCTURE. */ 

5 i BIN FIXED,/* NUMBER OP SECURITY CODES*/ 


/* FOR THIS FIELD, */ 

5 CODE (18) CHAR (8) VAR,/* USER PASSWORD. ♦/ 

5 CHANGED (18) BIT (1),/* ONE FLAG FOR EACH */ 

/* SECURITY CODE. IF ON THEN */ 
/* REPDT THE NEW VALUE. */ 

5 TILLER CHAR (8),/* NEEDED FOR PLI BUG. */ 

3 GF, /* PARAMETERS TO GET FIELD */ 

/* SUBROUTINE. ♦/ 

5 ALLOC_NEW BIT (1),/* ALLOCATE AND INITIALI E A ♦/ 

/* NEW FLD STRUCTURE, */ 

5 F1D_1EN BIN FIXED,/* MAXIMUM ALLOWABLE LENGTH*/ 

/* FOE THE FIELDNAME. */ 

5 FLD MSG CHAR (8),/* MSGID TO PROMPT FOR THE ♦/ 

/* FIELDNAME. ♦/ 

5 FLD# BIB FIXED,/* FOB AN EXISTING FIELD, ♦/ 

/♦ THE ENTRY IN FIELD STRUCTDR*/ 
/* ELSE 0, */ 
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5 NEH_FLC BIT (1),/* ON - GET A BRAND NEW FIELD*/ 

/* CFF - AN EXISTING FIELD, ♦/ 
5 PEHPT ERS BIT VALUE TO SET TC. PBOHPT. ERR*/ 
5 RESERVED BIT (1)//* A RETORNED VALOE INCICATIN*/ 


/» IF THE FIELDNAME IS ♦/ 

/* RESERVED, */ 

5 RES FID BIT (1),/* ON - RESERVED NAMES ABE */ 

/* ACCEPTABLE. •/ 

/♦ OFF - RESERVED NAMES ARE ♦/ 
/* NOT ACCEPTABLE. ♦/ 

3 ADD FLAG BIT (1) ,/* IN ADD OR CHANGE COMMAND. ♦/ 

3 ALPHA CHAR (26), /* ALL ACCEPTABLE ALPHABETIC ♦/ 

/♦ CHARACTERS. ♦/ 

3 ALPHANOHERIC CHAR (36), 

/» ALL ACCEPTABLE ALPHA- */ 

/♦ NUMERIC CHARACTERS. ♦/ 

3 ARG PTR PTB, /* PTB TO VALIDATION ARGUMENT.*/ 

3 ASSOC NAPES CHAR ( 9 ),/* AIL POSSIBLE ASSOCIATE */ 

/* FILE ID»S. */ 

3 COMND_CAIl BIT (1),/* A COMMAND CALL OR AN */ 

/* IHTERNAI CALL. */ 

3 CCMND NAME CHAR (8),/* NAME OF COMMAND CALLED. */ 

3 ERR FLAG BIT (1) ,/* ERROR FLAG USED FOR */ 

/♦ INTER MODULE COMMUNICATION.*/ 
3 FIELDNAME CHAR <8) ,/* FIELD TO BE PROCESSED. */ 

3 PIELDT7PE (0:10) CHAR (2),/* ALL VALID FIELD TYPES.*/ 


3 FIELD PTR PTBr /* PTR TO FIELD NAME STRUCTURE*/ 

3 FID LAST (60) PIR, /» PIPS TO LAST FIELD ENTRY */ 

/♦ IN EACH FIELD STRING, */ 
3 FLD PTB PTR, /* PTR TO FIELD DESCBIPTBOR, */ 

3 FLd“taB (60) PTB, /* FTPS TC FIRST FIELD ENTRY */ 

/♦ IN EACH FIELD STRING, */ 
3 FLDTYPE BIB FIXED,/* FIELD TYPE USED BY ADD. ♦/ 


3 F5EC PTR PTR, /* PTR TO FIELD SECURITY ♦/ 

/♦ STRUCTURE. */ 

3 HDR PTR PTB, /* PTE TO FILE DESCRIPTOR. */ 

3 HEAD TAB (36) PTR, /♦ CHE PTB FOR EACH HEADER. •/ 

3 HEX_CHARS CHAR (16), 

/* ALL ACCEPTABLE HEXADECIMAI */ 
/» CHARACTERS. */ 

3 INDEX NAMES CHAR (16), 

/* IIST OF ALL POSSIBLE INDEX */ 
/* FILE ID'S. */ 

3 lOAREA CHAR (256) VAR,/* COMMON TERMINAL INPUT */ 

/* OUTPUT AREA. ♦/ 

3 IOAD_FILE CHAR (1),/* ID OF FILE TO LOAD FROM. */ 

3 LOAD_ONE BIT (1),/* lOAD JUST ONE RECORD. ♦/ 

3 LVA BIN FIXED,/* LENGTH OF VALIDATION ♦/ 

/* ARGUMENT. ♦/ 

3 PAT_FILE CHAR (1),/* ID OF FILE BEING WORKED */ 

/* ON BY BEVIEH - PATCH. */ 

3 PAT_FIELE CHAR (8),/* NAME OF FIELD BEING ♦/ 

/* WORKED ON BY REVIEW-PATCH, */ 
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3 BEV^MODE BIT IW EEVIEW OB UPDATE HODE* ♦/ 


3 B5EC PTB PTfi, /* PTE TO EECOBD SECOBITY ♦/ 

/♦ CODES. */ 

3 SA?E_STBIBG CflAB (150) VAP,/* ABEA TO BUILD »/ 

/♦ COWHAND STRINGS. */ 

3 SUBFILE NAMES CHAP (10), 

/♦ LIST OF ALL POSSIBLE */ 

/* SUB-FILE ID’S. */ 

3 SUFFIX CHAP (36) , 

/♦ ALL POSSIBLE FILE ♦/ 

/♦ IDENTIFIER SUFFICIES. */ 

3 SUPER PTP PTR, /♦ PTR TO SUPERFIELD COMPONENT*/ 

3 TPANsT /♦ TBANSITORY CALL LABELS. ♦/ 

5 CALL CHAR (8),/* ROUTINE TO BE CALLED */ 

5 RET CHAR (8),/* ROUTINE TO RETURN TO. ♦/ 


THIS SUBSEOUENT PART CP THE X STRUCTURE IS SEPARATED 
FROM THE REST OF THE X ITEMS AS THIS PART OF X IS THE 
PART THAT MUST BE SAVED WHEN USING THE CHKPOINT 
COWHAND. THIS PREVIOUS INFORMATION OF X NEED NOT BE 
SAVED, AS IT IS SETUP PROPERLT WHENEVER X IS ALLOCATED, 
OR THOSE ITEMS WHOSE VALDES MATTERS NOT BETWEEN COMMAND 
EXECUTION. 

3 CHKPOINT RECLEN BIN (31) FIXED, 

/* OUTPUT RECORD LENGTH FOR ♦/ 
/♦ ASMPUT ROUTINE. IT IS SET ♦/ 
/* SET TO THE LENGTH OF THE ♦/ 
/* X STRUCTURE THAT HOST BE ♦/ 
/* SAVED WHEN CHECKPOINT IS ♦/ 
/♦ EXECUTED. ♦/ 

THIS MINOR STRUCTURE IS THE PREDEFINED RECLEN FIELD 
DESCRIPTOR, IT IS PLACED IN IN THIS PART OF X BECAUSE 
IT MAY HAVE FIELD SECURITY APPLIED TO IT, 


3 FID^RECLEN LIKE ELD, 

THIS HONOR STRUCTURE IS A LIST OF RESERVED FIELDNAMES. 
THE USEE HAY NOT DEFINE BY USE OF THE ADD, SUPREFLC, 
CREATSOE, ADEtIKE, AND RENAME COMMANDS A FIELD 
DESCRIPTOR WITH A FIELDNAME THA^ APPEARS IN THIS 
TABLE. 


3 RESERVED, 

5 LAST.# 

5 FIELDNAME 
3 ASSOC LIST 


3 CREATE? 

3 DATAPLEX 


/♦ LIST OF RESERVED FIEICNAMES*/ 


BIN FIXED INIT (14) , 

/• INDEX OF LAST ENTRY. V 

(40) CHAR (8) ,/*BBESEFVED FIELDNAMES ♦/ 
CHAR (9),/* LIST OF ASSOCIATE FILE ♦/ 
/♦ ID’S AVAILABLE FOR ♦/ 

/♦ assignment. */ 

BIT (I),/* CFEATE-OPDATE MODE FLAG. */ 
CHAR (6),/* FILE BEING DEFINED. */ 



PAGE 107 


3 DELETE_FI1ES CHaS (36),/* LIST OF DESCBIPTOB ♦/ 

/* FEGIOSS TO BE DELETED FROM */ 
/* DISC. */ 

3 EXIST FILES CfiAR (36),/* FILE IDS OF ALL FILES */ 

/* EXISTING ON DISC. */ 

3 FILE EXISTS BIT (1),/* DESCEIPTOE FILE EXISTS. ♦/ 
3 INDEX LIST CHAR (16),/* LIST OF DNASSIGNED INDEX*/ 

/* FILE ID'S. ♦/ 

3 #FN BIN FIXED,/* NUMBER OP ENTRIES IN ♦/ 

/* FIELD STRUCTURE. */ 

3 ICAD^ERPCP BIT (1), 


/♦ ERROR IN LOADING DESCRIPTRS*/ 
3 NEED FILE BIT (1) , 

/* OSER SHOULD FILE TO SAVE. */ 
3 SUBFILE LIST CHAR (10),/* LIST OF ALL UNASSIGNED */ 

/* SUB_FILE ID'S. */ 

THIS MINOR STRUCTURE IS USED TO STORE THAT INFORMATION 
NECESSARY TO THE EXECUTION OF MODULES THAT CAN HAVE 
PAGEABLE INFORWATICN DISPLAYS. 


3 PAGE_XMPC, 

5 RTN LABEL, /♦ «HAT ROUTINE TO PAGE. */ 

5 RTN NAME CHAR (8) , 

/* THE ROUTINE NAME THE PAGING*/ 
/♦ MODULE IS TO CALL. ♦/ 

5 PTR PTB, /* ADDRESS OF STRUCTURE BEING */ 

/♦ DISPLAYED. */ 

5 DIR CHAR (1),/* PAGING DIRECTION. */ 

5 FILE_XC CHAR (1),/* SUFFIX OP FILE BEING ♦/ 

/♦ REVIEWED. */ 

5 FLD_NAHE CHAR (8), 

/♦NAME OF FIELD BEING REVIEWD */ 


5 !OTE| BOM FOXED./* LAST ITEM PUT ON SCREEN-^*/ 

5 ITEMS BIN FIXED,/* # OF ITEMS TO DISPLAY. */ 

5 LIMIT BIN FIXED,/* ALL ITEMS AFTER LIMIT TO*/ 

/* BE DISPLAYED ONE PER LINE. */ 

5 # BIN FIXED,/* # OF PAGE BEING DISPLAYD*/ 

5 LAST BIN FIXED,/* lAST ENTRY USED. */ 

5 START (100) BIN FIXED,/* ITEM # USED TO START */ 

/* EACH PAGE. ♦/ 

THIS MINOR STRUCTURE IS USED TO STORE THOSE FIELD NAMES 
AND IDS OF THE DESCRIPTOR REGIONS IN HHICH TREY APPEAR 
THAT MOST EE DEIETED FBCM THE DESCRIPTOR FILE THE NEXT 
TIME A FILE IS DCBE. 

3 DELETE, /* LIST OF FIELD NAMES TO BE */ 


/* DELETED FROM THE DISC. */ 

5 KEY NAME CHAR (8),/* ANCHOR KEY NAME IF */ 

/* ANCHOR KEY NAME HAS BEEN ♦/ 
/* CHANGED. */ 

5 # BIN FIXED,/* NUMBER OF FIELDS */ 
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/♦ 

TO El DELETED. 

*/ 

(ICO), 

7 IIEtD 

CHAP 

(8) ,/* 

KAJ1ES OF FIELDS TO EE 

♦/ 



/* 

DELETED. 

♦/ 

7 IDS 

CHAR 

(4) ;/* 

IDS OF FILES ON BHICH 

*/ 



/* 

THE FIELD APPEARS. 

*/ 
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TOPIC D.26 - «AINTEHANCE 

A. DATA SET ?JAMEi 

DEHDR which consists of the structures HDR 
aCB_STEISG 

B. CREATED BY: 

Not Aoplicable 

C. TYPE OF FILE: 

Table 

D. OBGANIZATICN: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTBOL FIELD); 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR; 

Not Applicable 

H* PDPPOSE: 


and 


The RDB structure is used to contain the information 
describing a file descriptor# HDB^STFING is a 
character string used to overlay the HDR structure# 
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I. Pt/I DECIflBBTICN: 

IHE HDfi STfiOCTOfiE IS USED STOEE THE IRFOKHATIOH 
DEFINING A FILE DESCEIEICB. 


1 HDE BASED (X.«DE PTS) , /♦ FILE DESCBIPTOS */ 

7* STBOCTDBE, */ 

3 BACKWARD PTH, /♦ BACKWARD HDER POINTER. */ 

3 FORWARD PTH, /♦ FORWARD HDER POINTER* ♦/ 

3 SUFFIX CHAR (1) , /♦ WHICH FILE THIS HEADER ♦/ 

/* BELONGS TO. */ 

3 FILETYPE CHAR (1) /* TYPE OF PILE INDICATOR. ♦/ 

3 DESCRCT BIN FIXED, /♦ NURBEF OF FIELD DESCRIPTORS*/ 

/* ON THIS FILE. */ 

3 BSELNGTH BIN FIXED, /* TOTAL LENGTH OF FIXED ♦/ 

/♦ FIELDS ON THIS FILE. */ 

3 DESCOK CHAR (1), /♦ DESCRIPTORS OK FLAG. */ 

3 SPANNED CHAR (1), /* THIS INDEX TO CONSIST OF */ 

/* SPANNED RECORDS. ♦/ 

3 DATA CHAR (1), /♦ DATA ON FILE SWITCH. */ 

3 MNTNABLE CHAR (1), /♦ FILE CAN BE HAINTAINED FLAG*/ 

3 HNTNTNG CHAR (1), /* FILE BEING HAINTAINEC FLAG.*/ 

3 LOADABLE CHAR (1), /* WHETHER OR NOT TO PLACE */ 

/* DATA ON THIS FILE. */ 

3 REHAINS CHAR <8> , /* UNUSED HDR DESCRIPTOR FIELD*/ 

3 RECSECFP BIN FIXED, /* FILE HAS RECORD SECURITY. */ 

3 RSECTYCD PTR, /* POINTER TO RECORD SECURITY */ 

/* CODES IP ANY. */ 

3 CHANGED (13) BIT (1), /* ONE FLAG FOB EACH ITER IN ♦/ 

/♦ HEADER STRUCTURE. IF ON ♦/ 
/* THEN PUT NEW VALUE IN ♦/ 

/♦ DESCRIPTOR FILE, */ 

3 FILLER CHAR <8) ; /* NEEDED FOR PLI BUG. */ 


THIS STRUCTURE IS A CHARACTER STRING OVERLAY ON THE HDR 
STRUCTURE. IT IS USED FOB BAKING COPIES OF THE HER 
STRUCTURE. 

DCL HDR STRING CHAP (*I6) , BASED (X.BDB PTR); 

/* HDR STRUCTURE OVERLAY. */ 
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TOPIC E.1 - TEREISAX SOPPOET 

A. DATA SET NAHE: 

TSPI/I Diagnostics 

B. CSEATED BYr 

TS Preproc€Ssor Function 

C. TYPE OF FIIE: 

<a> Table 

D. OSGANIZATICH: 

Keyed list 

E. KEY IDENTIFIEE CCCSTSOl FIEID) t 

Each diagnostic coasjent has an identification tey 
having the form: •--*EEEOB-- -nn» where nn is a anigue 

identification nnisber. 

F. EECOED LENGTH; 

Variable 

G. BLOCKING FACTOF; 

Not Applicable 

R. PURPOSE: 

TSPL/I Diagnostic cciuiDents are generated into nainline 
source programs by the TS preprocessor function (see 
Section IV, Topic E, 1 of the DUB). They are tabulated 
here with additional notes for reference. In Paragraph 
I, single guotes denote that characters from the TS 
preprocessor function or its argument are filled into 
the message to mate its meaning clearer. 

I. TSPL/I DIAGNOSTIC COWRENTS: 

TS001 HISSING ARGUHENT ON TSPL/I BEFEEENCE. 

Severe error - a TS preprocessor function reference 
has no parenthesited argument. 

TS002 TSPL/I AaGDHEKT DOES NOT BEGIN «ITR A M'* 


Severe error - a TS preprocessor function reference 
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does net tegin vith double left parentheses* 
Processing of this TS reference was abandoned because 
the closing right parenthesis would not be able to be 
found* 

TS003 9ISSIN6 CEtlMlTEB IN TSPl/I STATEHENT. 

Severe error - the right parenthesis at the end of a 
TS prectocessot function reference has been 
encountered unexpectedly. 

TS004 STATEHENT HAS A HISSING •;•* 

Severe error - the right parenthesis at the end of a 
TS preprocessor function reference has been 
encountered unexpectedly. 

TS0C5 STATEMENl FODKD POUCHING FINISH. 

Severe error - the statement has been ignored because 
it follows the IS ((FINISH;)) reference. 

TS0C6 STATEHENT CONTAINS EXCESS *(*(s). 

Severe error - the statement semicolon has been 
found, tut the parentheses are unbalanced. The 
statement was ignored. 

TS007 STATEHENT KEIHOBC UNKNOWN, 

Severe error - an unknown word was found as the first 
word of a TSPL/I statement. The statement was 

ignored , 

TS008 *text’ STATEHENT CONTAINS INVALID SYNTAX. 

The statement type identified by *text* was found to 
contain invalid syntax. The statement was ignored. 

TS009 EXTRANEOUS TEXT IGNOBED- 

This message merely means that part of the statement 
was ignored, 

TS010 IMPHOPEB OR HULTIPIE EHAEIE STATEMENTS, 

An improper placement of or multiple use of an enable 
statement has been encountered. The statement was 
ignored. 
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1 NNNNN-^ — ♦*; TSPL/I EBEORS.* 

The finish statement has been processed and 
errors were previously detected* 


KNNNS 
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TOPIC E.2 - TEBPINAt SOFPOPT 


A. DATA SET NAME; 

Terminal Control Block 

B. CHEATED BY; 

TS Preprocessor Function 

C. TYPE OF FIIE: 

<4> Table 

D. OFGANIZATICN; 

Linear Structure of Fields 

E. KEY IDENTIFIER (CCRTHCI FIELD); 

TC 

The terminal contiol block is an automatic internal 
data table* 

F. RECORD LENGTH; 

236 Bytes (Hexidecimal EC) 

This is the length of the vhole control block including 
the dope vectors. 

G. BLOCKING FACTOPt 
Not Applicable 

H. PURPOSE: 

The TC control block is used for communication betveen 
mainline programs and TSSUP. The declaration is 

generated ty the TS preprocessor function. For TSPL/I 
statements in the mainline, the TS preprocessor 

function generates statements that post fields in TC, 
such as a prompt message key. At execution time, TSSUP 
refers to fields in TC and posts error code fields in 
TC which may subsequently be referenced in the 
mainline. 
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I, PL/I OECLAPAIIOH: 


/* TEBHIHAI CONTEOI EtOCK (TC) FOB <TS2) TSPl/I */ 


DSCIABE 
1 TC, 

2 FUllCTIOfl CHAH(8>, 


2 PAGI«G_EWTHY CHAR (8), 

2 LIME.SIZE FIXED BTN(15) 

2 IHPOT, 

3 EBBOR BiTf 1) , 

3 EXTRA BITS BIT(7) , 

2 GOT PUT, 

3 SIZE FIXED BIN (15) , 

3 INDENT FIXED BIN(15), 

3 WRITTEN FIXED BIN (15), 

3 DIRECTION PIT(1), 

3 POT^PARTIAt BIT(1), 

3 AXJTO_WRITE EIT(1), 

3 WOBD^BREAK BIT(1), 

3 OVERFLOW BIT (1) , 


/♦DEFINE THE TC STRUCTURE ♦/ 
/*TS FUNCTION IDENTIFIER */ 
/♦SET BY TS PREPBOCESSOB ♦/ 
/♦'ENTRY '*ENTBY ♦/ 
/♦'READ '=READ */ 
/♦•WRITE '=WRITE ♦/ 
/♦•FLUSH '=FinSH */ 
/♦tptjT • = PUT */ 
/♦*PROHPT-C'=COMHAND PRONPT*/ 
/♦'PBOHPT-D'=DATA PHOHPT */ 
/♦•PROHPT-M'=I9ESSAGE */ 
/♦TS PAGING ENTRY POINT */ 
/♦SET BY TS PREPROCESSOR ♦/ 
/♦TO NAME OF THE CURRENT ♦/ 
/♦NODULE'S PAGING ENTRY ♦/ 
/♦TS LINE WIDTH (BYTES) ♦/ 
/♦SET BY TSSUP ON ENTRY */ 
/♦TS SCREEN INPUT FIELDS ♦/ 
/♦READ ERROR BIT SWITCH ♦/ 
/♦SET BY TSSUP AFTER BEAD */ 
/♦•O'^NO ERROR »1'«ERROR ♦/ 
/♦RESERVED BIT SWITCHES ♦/ 
/*TS SCREEN OUTPUT FIELDS */ 
/♦OUTPUT AREA SIZE (LINES) ♦/ 
/♦SET BY TSSUP ON ENTRY */ 


/♦INDENTATION COLUMN NUMBER*/ 
/♦SET BY USER AT ANYTIME */ 
/♦PUT OUTPUT COUNT (BYTES) */ 
/♦SET BY TSSUP ON OVERFLOW ♦/ 
/♦IF A0TO_WRITE IS SET ON ♦/ 
/♦POT DIRECTION BIT SWITCH */ 
/♦SET BY TS PREPROCESSOR */ 
/♦• 0'=FORWAED '1'=BACKWASD ♦/ 
/♦PUT OUTPUT MODE SWITCH ♦/ 
/♦SET BY USER AT ANYTIME ♦/ 
/♦•0'=PDT FULL RECORD ONLY */ 


/♦«1'==PUT PARTIAL RECORD ♦/ 
/♦PUT END OF BUFFER SWITCH ♦/ 
/♦SET BY USER AT ANYTIME */ 
/♦•0'=RETURN TO USER */ 
/♦' 1'=AUTOMATIC WRITE */ 
/♦PUT LINE SPLIT SWITCH ♦/ 
/♦SET BY USER AT ANYTIME */ 
/♦'0'==TEUNCATE AT LIKE END ♦/ 
/♦•1*=BREAK AT LAST WORD ♦/ 
/♦PUT OVERFLOW BIT SWITCH ♦/ 
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3 CONTINOATICN BIT(1), 


3 position BIT(1> , 


3 HOPE.OATA EIT(1>, 


2 PBOBPT, 

3 SIZE FIXED BIN{15) , 

3 HESSAGE_FEY CHAB(6) , 
3 KEYHOBD Cfl»5(8) , 

3 BYPASS 

3 ERBOR BIT(1> , 


3 TRUNCATION BIT f1) , 


3 DEFAOIT BIT(1), 


3 DOTED DIT(1), 

3 WORE DATA EIT(1) , 


3 SKIP BIT(1) r 


/#SET BY TSSUP WHEN POT ♦/ 

/♦CADSES BUFFER OVERFION 
/♦•0«=NO OVERFLOW */ 

/*• 1*=OVERFLOW */ 

y*POT CONTINUATION SWITCH ♦/ 

/*SET BY USER WHEN HE IS »/ 

/♦PUTTING CONTINUED DATA ♦/ 

/♦•0»=NO CONTINUATION ♦/ 

/♦M*=PUT CONTINUED DATA */ 

/♦POT POSITIONING SWITCH ♦/ 

/♦SET BY TS PREPROCESSOR •/ 

/♦•0*=POT TO NEXT LINE */ 


/♦•1*=PUT TO TOP OF SCREEN ♦/ 
/♦SCREEN OVERFLOW SWITCH ♦/ 
/♦SET BY THE USER WHEN RE ♦/ 
/♦HAS MORE DATA TO OUTPUT ♦/ 
/♦VIA THE PAGING MECHANISM ♦/ 
/♦•0*=NO MORE DATA REMAINS ♦/ 
/♦•1«=MORE DATA AVAILABLE ♦/ 
/♦TS SCREEN PROMPT FIELDS ♦/ 
/♦PROMPT AREA SIZE (LINES) ♦/ 
/♦SET BY TSSUP ON ENTRY ♦/ 
/♦KEY OF CURRENT MESSAGE */ 
/♦SET BY TS PREPROCESSOR */ 
/♦KEYWORD FOR DATA PROMPT ♦/ 
/♦SET BY TS PREPROCESSOR ♦/ 
/♦PROMPTING BYPASS SWITCH ♦/ 
/♦SET BY USER AT ANYTIME ♦/ 


/♦•0»=PRCMPT IF NO DATA ♦/ 
/♦M*=RETUPN NOLL VALUE */ 
/♦PROMPTING ERROR SWITCHZZZ^/ 
/♦SET BY USER WHEN A DATA */ 
/♦ERROR FORCES REPBOMPTING ♦/ 
/♦tO*=PROCESS NORMALLY ♦/ 
/♦n ' = BEPEOHPT FOE DATA */ 
/♦DATA TRUNCATION SWITCH */ 
/♦SET BY TSSUP FOE PROMPT */ 
/♦'0*=NO 7EUNCATION ♦/ 
/♦* 1 *=DATA TBUNCATED */ 
/♦DEFAULT VALUE BIT SWITCH ♦/ 
/♦SET BY TSSUP FOB PROMPT */ 
/♦’0*=DATA ENTERED BY USER */ 
/♦M*-DATA HAS A DEFAULT ♦/ 
/♦ UOTED DOTED BIT SWITCH ♦/ 
/♦SET BY TSSUP FOR PROMPT ♦/ 
/♦•O'^NORMAL DATA VALUE ♦/ 
/♦<1*= UCTED STRING ♦/ 
/♦PARENTHI7ED LIST SWITCH ♦/ 
/♦SET BY TSSUP FOR PROMPT ♦/ 
/♦•0*-LAST DATA VALUE •/ 
/♦M« = MOFE VALUES FOLLOW ♦/ 
/♦SKIP INPUT PARSING BIT */ 
/♦SET BY THE USER WHEN HE ♦/ 
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/♦WISHES TO BYPASS PARSING ♦/ 
/*fO»=DO NOSRAL PASSING */ 
/♦'1*=SKIF NCRHAI PARSING ♦/ 
3 PAGE /*PAGING CONTROL SNITCH */ 

/♦•0«=IGNOSE PAGING ENTRY ♦/ 
/♦M» = AITER PAGING ENTRY ♦/ 
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TOPIC E. 3 - TEBPINAL SOPPOBT 


A. CATft SET NAME: 

TSTEXT - Terminal Control Blocic Eeclaration 

B. CHEATED E7: 

Included by TS processor function# 

C# TYPE OF FIIEt 
Table 

D. OHGANIZATICN: 

PL/I Source Statements 

E, KEY IDEHTIFIEP (CCKT80I FIELD): 

Not Applicable 

F# BECOBD LENGTH: 

92 bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

The Durpose of the TSTEXT is to define the terminal 
control blcck (TC) vithin every program using it# This 
enables the programmer and the preprocessor to refer to 
the fields of the TC block in order to specify the 
various functions and options needed by the program# 

I# PL/I DECLARATION: 


DECLARE 

TSFLUSH ENTRY Or /♦ FLUSH ENTRY POINT */ 

TSREAD ENTRY (,CHAR(*) VAR) ,/♦ READ ENTRY POINT */ 

TS8RITE ENTRY (, CHAR (♦) VAR),/* WRITE ENTRY POINT */ 

T5PUT ENTRY<,CHAR<*) VAR, /♦ POT ENTRY POINT »/ 

CHARt*) VAR),/* DEFINITION */ 

( TSPRMTC, /* COMMAND PROMPT ENTRY */ 

TSPRMTD, /♦ DATA PROMPT ENTRY ♦/ 


TSPRMTM ) ENTRY f, CHAR f*) VAR, /♦ MESSAGE ENTRY POINT*/ 
CHARf*) VAR, CHAR{*) VAR, CHAB(*) VAR, CHAR(*) VAR, 

CHAR(*> VAR, CHAR(*> VAR, CHAR <♦) VAR, CRAB(*) VAR, 

CHAB<*) VAR, CHAB(*) VAR, CHAR(*) VAR, CHAR(*) VAR, 
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CHAP(*) vaa, VAR, CHAB(*) VAR, CHARt*) VAR, 

CHARt*) VAR, CHAR(*> VAR, CHAH(*) VAR, CHAP(*) VAR); 

CECLARE 

1 TC, /* DEFIRE THE TC STRUCTDRE ♦/ 

2 FUNCTION CHAR (8), /• IS FUNCTION IDENTIFIER */ 

/* SET BT TS PHERBOCESSOR ♦/ 
/♦ *ENTBY •=ENTSY ♦/ 

/* «READ »=BEAD */ 

•WRITE *=WRITE ♦/ 

/* 'FLUSH '^FLDSH */ 

/♦ •PUT '=PUT ♦/ 

/♦ •PHOHPT-C*=COM«AND PROSPT*/ 

/* • PBOHPT-D*=DATA PROHPT */ 

/♦ •PROHPT-M'^HESSAGE ♦/ 

2 PAGING_ENTRY CHAR(fl), /♦ TS PAGING ENTRY POINT ♦/ 

/♦ SET BY TS PREPROCESSOR ♦/ 
/♦ TO NAME OF THE CURRENT »/ 
/* HODUIE'S PAGING ENTRY ♦/ 
2 LIRE SIZE FIXED EIRM5), /♦ TS LINE WIDTH (BYTES) */ 

/♦ SET BY TSSUP ON ENTRY ♦/ 
2 INPUT, /♦ TS SCREEN INPUT FIELDS */ 

3 ERROR EIT(1), /♦ READ ERROR BIT SWITCH */ 

/• SET BY TSSUP AFTER READ */ 
/♦ *0*=NO ERROR 'V = ERR0B ♦/ 

3 EXTRA BITS BIT(7), /♦ RESERVED BIT SWITCHES ♦/ 

2 OUTPUT, * /* TS SCREEN OUTPUT FIELDS ♦/ 

3 SIZE FIXED BIN(I'), /* OUTPUT AREA SIZE (LINES) ♦/ 

/♦ SET BY TSSUP ON ENTRY ♦/ 


3 INDENT FIXED EIR(15), /♦ INDENTATION COLUMN NUMBER*/ 

/♦ SET BY USER AT ANYTIME ♦/ 
3 WRITTEN FIXED BIN (15),/* PUT OUTPUT COUNT (BYTES) */ 

/* SET BY TSSUP ON OVERFLOW ♦/ 
IF ADTO_WFITE IS SET ON */ 
3 DIRECTION BIT(1), /* PUT DIRECTION BIT SWITCH */ 

/* SET BY TS PREPROCESSOR */ 
/♦ •0*=FORHAED M*=BACKWARD */ 


3 POT PARTIAL BIT(1), /* PUT OUTPUT MODE SWITCH ♦/ 

/♦ SET BY USER AT ANYTIME */ 

/♦ ■0»=PUT FULL RECORD ONLY ♦/ 

/* 'V^PUT PARTIAL RECORD */ 

3 AUTO WRITE BIT(l), /* PUT END OF BUFFER SWITCH ♦/ 

/* SET BY USER AT ANYTIME ♦/ 

/♦ 'O'^RETDRN TO USER */ 

/♦ •1'-AUTOHATIC WRITE */ 

3 WORD BREAK BIT(l), /♦ PUT LINE SPLIT SWITCH */ 

/* SET BY USER AT ANYTIME ♦/ 
/* '0'=TFUNCATE AT LINE END ♦/ 
/♦ *1*=BREAK AT LAST WORD */ 
3 OVERFLOW BIT(I), /* PUT CVEBFLOW BIT SWITCH */ 

/* SET BY TSSUP WHEN POT */ 

/♦ CAUSES BUFFER OVERFLOW ♦/ 

/♦ *G*=NO OVERFLOW ♦/ 

/♦ *1'=OVERFLOW */ 
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3 CONTINtlAtTON BIl (1) , 

3 PCSITIOH 
3 HOPE_DATA , 

2 PROMPT, 

3 SIZE FIXED BIS(15), 

3 HESSAGE^KEY CHAR (8) , 
3 KEYWORD CHAR (8) , 

3 BYPASS BIT(1) , 

3 ERROR BIT (1) , 

3 TRaNCATICN BIT (1) , 

3 DEFAULT EIT(1>, 

3 QUOTED BIT(1), 

3 HORE_DATA BIT(1) , 

3 SKIP BIT(1> , 

3 PAGE EIT(1) ; 


/* PUT CONTIHOATION SWITCH ♦/ 


/♦ SET BY USER WHEN HE IS ♦/ 

/* POTTING CONTINUED DATA */ 

/♦ ’0*=NO CONTINUATION */ 

/♦ »1»=PUT CONTINUED DATA ♦/ 

/* PUT POSITIONING SWITCH 
/♦ SET El TS PREPROCESSOR ♦/ 

/♦ »0*=PDT TO NEXT LINE ♦/ 


/♦ ’V^PUT TO TOP OF SCREEN */ 
/♦ SCREEN OVERFLOW SWITCH ♦/ 
/* SET BY THE USER WHEN HE */ 
/* HAS MORE DATA TO OUTPUT */ 
/♦ VIA THE PAGING MECHANISM ♦/ 
/♦ «0*-N0 MORE DATA REMAINS ♦/ 
/* »1'=MORE DATA AVAILABLE ♦/ 
/♦ TS SCREEN PROMPT FIELDS ♦/ 
/♦ PROMPT AREA SIZE (LINES) ♦/ 
/♦ SET BY TSSUP ON ENTRY »/ 
/♦ KEY OF CURRENT MESSAGE ♦/ 
SET BY TS PREPROCESSOR */ 
/* KEYWORD FOR DATA PBCMPT ♦/ 
SET BT TS PREPROCESSOR 
/* PROMPTING BYPASS SWITCH ♦/ 
/♦ SET BY USER AT ANYTIME */ 


/* •0’*PROMPT IF NO DATA ♦/ 
/♦ •V = RET0RN NULL VALUE ♦/ 
/♦ PROMPTING ERROR SWITCH ♦/ 
/♦ SET BY USER WHEN A DATA */ 
/* ERROR FORCES REPROMPTING ♦/ 
/♦ «0*-PBOCESS NORMALLY */ 
/♦ M'^REPFOMPT FOR DATA */ 
/♦ DATA TRUNCATION SWITCH ♦/ 
/* SET BY TSSUP FOR PROMPT */ 
/♦ «0'=NO TRUNCATION */ 
/* M*=DATA TRUNCATED */ 
/♦ DEFAULT VALUE BIT SWITCH */ 
/* SET BY TSSUP FOR PROMPT */ 
/♦ *0»=DATA ENTERED BY USEE ♦/ 
/* M' = DATA WAS A DEFAULT */ 
/♦ QUOTED QUOTED BIT SWITCH ♦/ 
/♦ SET BY TSSUP FOR PROMPT */ 
/♦ •0*=NORMAL DATA VALUE ♦/ 
/♦ •1»=QDOTED STRING */ 
/♦ PABENTHIZED LIST SWITCH ♦/ 
/♦ SET BY TSSUP FOR PROMPT ♦/ 
/* *0*=LAST DATA VALUE ♦/ 
/♦ •V=MORE VALUES FOLLOW ♦/ 
/* SKIP INPUT PARSING EIT */ 
/♦ SET BY THE USER WHEN HE ♦/ 
/* WISHES TO BYPASS PARSING */ 
/♦ *0»=DO NORMAL PARSING */ 
/♦ M« = SKIP NORMAL PARSING */ 
/* PAGING CONTROL SWITCH ♦/ 
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/♦ *0*=IGNORE PAGING EStB? ♦/ 
/♦ 'V^AITEP PAGING ENTRY ♦/ 
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TOPIC F. 1 - CATA BETRIE7AL 


A. DATA SET NAME 

RETDATA - Retrieval Data Table 

B. CREATED BY: 

BDBINIT 

C. TYPE OF FXIE: 

Table 

D. ORGANI7.ATICN 

PL/I Data Structore 

E. KEY IDEMTIEIER (CCKTRCI FIELD); 

Not Applicable 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE 

1. RETDATA EXTERNAL CCNTEOILED, 

This table contains data fields uniaue to the 
retrieval sub-system and referenced by various 
modules of that sub-system, 

2. PBINTDC CHARACTER <8) VARYING. 

This field contains the ddname of the print 
file fct retrieval, 

2. PFINTES CHARACTER (35) VARYING, 

This field contains the dsname of the print 
file fcr retrieval, 

2. SRT98CE CHARACTER (8) VARYING, 

This field contains the ddname of the save 
file for retrieval, 

2. SRT98ES CHARACTER (35) VARYING, 

This field contains the dsname 
file for retrieval. 


of the save 
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2. BITS. 

Ithe following bit switches are used to 
communicate status between the various 
retrieval modules. 

3. PRTOSED BIT (1). 

Describes whether any data has been 
written to the retrieval print file. 

I. PL/I DECtABATION 

/♦ NASIS SYEIEfl BETBIEVAI DATA TABLE */ 

DCL 

1 EETDATA EXTEBRAL COMTBOLLItt /*DFFINE EETPIEVAL DATA ♦/ 

2 PRINTDD CHAF(fl) VAB, /♦PRINT FILE DDNAHE */ 

2 PSINTDS CHAR (35) VAR, /♦PRINT PILE DSHAME */ 

2 SET98DD CHAB(8) VAR, /♦SAVE FILE DDNAHE */ 

2 SET98DD CHAR (8) VAR, Z+SAVE FILE DDNAKF ♦/ 

2 SET98DS CHAR (35) VAR, /♦SAVE FILE DSNAME ♦/ 

2 BITS, /♦RETRIEVAL BIT SNITCHES ♦/ 

3 PSTDSED BIT{1>, /♦PRINT FILE OSED PIT ♦/ 

3 DNOSBD BIT (7); /♦DNASSIGNED BIT SNITCHES ♦/ 
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TOPIC F.2 - DATA PETBIE^AI 


A. DATA SET NAHB: 

EXPAND Display Format 

B. CHEATED BY: 

EXPAND fBDEXPND) 

C. TYPE OF FILE: 

<3) Terminal Conmunication 

D. OBGAMiZATICNt 
Character Display Screen 

E. KEY IDENTIFIER (CCKTBCL FIELD) : 

Not Applicable 

F« RECORD LENGTH: 

Variable (Fnter cntput area of the screen or pseudo 
screen) 

G. BLOCKING FACTOR; 

Not Applicable 

H, PURPOSE; 

This is a series of on-line output displays produced by 
the EXPAND command giving the user full access to the 
inverted Indexes of a data base assisting him in an 
on-line search fcr information* 

The iisDlay is adapted to the sire of the display 
screen being used* If the end of the inverted index or 
the end cf the range of E-numbers (000-999) is 
encountered in either direction, a line such as 

(--START OF INDEX--) 

( — END OF INDEX > 

is displayed in the appropriate row* The primary term 
is alvays regenerated on the appropriate rov vhen 
multiple paging operations are done in either direction 
even if the primary term is not found in the inverted 
index* 



SAWPI.E EXPAND DISPLAY 


SYSTEB: -ENTEBs 

DSEB: expand pli, language 


SYSTEM: LINE 

XBEFS 

lANGnAGE(S) 



( — START OF INDEX 

EC97 

28 

ASM 

E098 

6 

ENG 

EC99 

12 

K/A 

-E100 

43 

PlI 

E101 

4 

TSS 

«««* 


{ END OF INDEX- 
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TOPIC F.3 - DATA RETBIE9AI 

A. DATA SET NAME: 

SELECT Display Foriuat 

B. CHEATED BY: 

SELECT <HDBS1CT and BDBSETS) 

C. TYPE OF FILE: 

(3) Terminal common ication 

D. ORGANIEATICN: 

Character Display Screen 

E. KEY IDENTIFIER (CCKTPCl FIELD) : 

Not Applicable 

F. PECORD LENGTH: 

480 Byte typical - 40 colomn, 22 line output area apart 
from the prompting area. 

G. BLOCKING FACTOB: 

Not Applicable 

R. PURPOSE: 

This is the output generated by the SELECT command, 
BDBSLCT calls the DBPSET entry point of HDBSETS to post 
the users nev set and BDBSETS sends this display to the 
prompt area of the screen. 
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SELECT C0HJ1AND SCEEE!I DISPLAY 


aa bbbfcb ccccccc 
or 

aa bbbbb (PBOMt dddddd) ccccccc 


where: 


aa 

bbbbb 
cc etc» 
dddddd 


set nuQber 

number of references 
SELECT expression 

control field name, if applicable 
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TOPIC F.4 - DATA PETBIEVAl 


A. DATA SET NAHE: 

DISPLAY Display Fornat 

B. CREATED BYt 
DISPLAY (RDBDSPI) 

C* TYPE OF FIIE; 

(3) Terminal Communication 

D. ORGABIZATICN: 

Character Display Screen 

E, KEY IDENTIFIER fCCKTPCL FIELD) ; 

Not Aoplicable 

F* RECORD LENGTHi 

480 Bytes typical - 40 column, 12 line output area 

apart from the prompting area. 

G. BLOCKING FACTORt 

Not Applicable 

B. POPPOSE; 

This is a series of on-line output displays produced by 
the DISPLAY command qiying the user full access to the 
anchor and associated files of a data base assisting 
him in an on-line search for information. Each screen 
image is built in a PA6TAB buffer and then transmitted 
in a single output operation to the display screen. A 
special use of the DISPLAY command is to retrieve saved 
screen images and redisplay them. Usually a stored 
screen image is one of the formats produced by the 
various cormands, but it may even be a screen image the 
user has keyed in. 

The display is adapted to the size of the display 
screen being used including the degenerate case of a 
typewriter terminal <120 columns by one line). 
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The first row ander the headinq rows always has a field 
name taq, even when it is a continuation of an element 
value bequn on the previous screen* 
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DISPLAY Comnsaud Screen Display 


DISPLAY aa,b,ccccc (original command parameters) 

w¥i*w¥wwwt miniDiniDm CF SEI aa, FOFMAT b, ITE55 nn 
xzxrxxxz: n 
yyvvyyyy; p, 

^ q 

ZXZZZZ 2 Z: ttrrtmrrtrrrrrrrrrrrrrrrrrrr 
rrrrrrrrrrrrrcrrrrrrtrcrrrrrtrrrrrrrrrrr 
rrrrrrrrrrrrrrrrrtrtrrrtrrrrrrrrrrrrrrrr 
rrrrrrrrrrrrrrtrr etc. 


where: 


nn 

mtnm etc. 

p# q 
rrr etc. 
WWW etc. 
XXX etc. 
yyy etc. 
zzz etc. 


relative record in set/Aev aa 
up to 30 characters of key value, 
up to 30 characters of element value. 

77 character element valne. 
key field name* 

field name having a single short element, 
field name having two short elements, 
field name having a single long element. 
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COLOMNAB 


DISPLAY aap f'Sf, ccccc <original coniroaiid parameters) 

PAGE XX 

t1 

t2 


tn 

hi 

h2 



FI P2 F5 

P2 


F3 

F4 


F4 

F3 

F4 

F3 



where: 

XX = page number* 

t1 « one or more title lines* 

h1 = one or more header lines* 

Fl^FS = one element field on the anchor or associate 
file* 

F2 = a multi-element field* 

F3,F4 = an elemental field on a subfile* 
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TOPIC F*5 - DATA HETBI5VAL 


A. DATA SET NAME: 

PARSED Table 

B. CREATED EY; 

Not Applicable 

C. TYPE OF Fits: 

Table 

D. ORGANIZATION; 

Linear Structure cf elewents 
£• KEY IDENTIFIER fCCNTROL FIELD): 

Not Applicable 

F, RECORD LENGTH; 

Not Applicable 

G, BLOCKING FACTOR; 

Not Applicable 

H, PURPOSE; 

PARSEC is a group of structures used by SELECT to save 
the inforiration ftcp a parsed expression, vhen that 
expression requires a search or contains **S” numbers 
which cannot be resolved with set numbers until after 
execution at the actual linear search. 

At search time EXSEARCH calls SELECT to begin 
evaluation of the boolean expressions and to post sets 
to be searched. SELECT uses the information contained 
in PARSED to do this and to replace all ”S” numbers 
nith tbeir corresponding set numbers. After the search 
SELECT proceeds with the final evaluation of the 
expression. 

1. PARSEC is a based structure consisting of pointers 
to the other structures containing the various 
pieces of infcrmation that needs to be saved when 
a boolean expression contains ”S”nuinbers. 


2 


PARS^TAB^PTR is a pointer to the structure 



PAGE 133 


%ihich is used to describe each element of the 
cTpressicn. 

2. PTaB_INPC_P1!P is a pointer to the structure 
which holds additional information about each 
element of the expression* 

2 * PTAB_PTES_P*rP is a pointer to the array of 
pointers, each pointer corresponding to an 
element of the expression* 

2. TNST_LIST_PTE is a pointer to the list of 
instructions generated by SELECT to provide 
for evaluation of the expression* 

2. «fiS_PTR is a pointer to the work string in 
which the expression and other necessary 
character strings are stored. 

2, INTH is the length for allocation of all 
tables listed here except WAS* It is 

determined from the length of the input 
expression* 

2 * S# contains the S# In which the PARSEC 

pointer is stored, i»e* the PARSEC pointer 
is stored in SFCHTAE, EMTFYDEF* <PABSEE. S#> 

1. PAPS_TAB is the primary table for storage of 
information as the expression is parsed* 

2. LUTR is the number of array elements in the 
table. 

2. EL is an element of the table* One element 

in the table is used to describe each 

syntactic item in the expression. 

3* IDX is the relative position of the item 
in the string WAS* 

3* LTB is the length of the item. 

3. ID is the identifier of the item which 

distinguishes between items of the same 
general type. 

3* TYPE is the general type of the item, 
such a relation operator, character 
string, etc* 

3* TEBH is used to mark an item as being a 
term during expression evaluation, or 
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to mark an item so that it »ill be 
iqnored by later passes. 

3, SKIP causes later program passes to skip 
over a particular number of items (or 
elements in PASS^TAB). 

PIAB^PTBS is an array of pointers. Each pointer 
corresponds directly to an element in PAFS_TAB_the 
Nth pointer in F’IAB_FTRS corresponds to the Nth 
element in PARS_TAB,” When an expression item 
results in the formation of a set, the pointer to 
the set is stored in the corresponding element of 
OTAB^FTRS. 

2. INTH is number of array elements, 

2, It is a pointer array element. 

PTAB_INFO is a table for storage of additional 
information about an expression item, and again 
each element corresponds directly to an element in 
PRES^TAB, 

2. tSTH is number of array elements, 

2, EL is an array element, 

3, IDX relative position of item, in string 
NAS, vhich is associated «ith item to 
which this element corresponds, 

3, SFX indicates subfile which applies to 
item. 

3. INDXD on if item (Fieldname or value) is 
indexed, 

3. NNDXE on if item (Fieldname or value) is 
not indexed, 

3, CTL on when item (Fieldname) is control 
field name. 

INST^LIST is a list of "instructions" created and 
executed by SELECT, The instructions guide the 
creation of sets, both from index files and 
through linear search, as well as the boolean 
combinaticn of all sets, once formed, to yield the 
final set, 

2 , LNTH number of instruction elements in this 

list. 
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2, EL an instruction* 

3* OP is the operation code* 

3. IDX1 first parameter/ 

3. IDX2 second parameter. 

3*IDX3 third parameter* 

1, Mas is a work string containing the input 

expression and other necessary character 

strings* 

2* INTH length of work string. 

2. S actual string. 

1. MAA is a one-character-per-element array which is 
defined on top of MAS to allow easy access to a 
single character. 

2. INTH is number of elements. 

2. A is a one character element. 

PARSEC^LIsrr is base pointer for PASSED structure. 

PAHS^TAB^PTR is base pointer for PARS^TAB. 

PTAE_INFO_PTR is base pointer for PTAB_INFO, 

PTAB_PTRS_PTR is base pointer for PTAB^PTRS. 

WAS^PTH is base pointer for MAS and WAA. 

INST_LIST_PTR is base pointer for INST^LIST. 

RAS^SIZE is set to adjust size of WAS at allocation. 
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TOPIC ?,6 - DATA BETPIEVAl 


A. DATA SET HAHE; 

SETS Display Foriaat 

B. CREATED BY: 

SETS <HDBSETS) 

C. TYPE OF FIIE: 

Tecmitial Communication 

D. ORGANIZATICN: 

Character Screen Display 

E. KEY IDENTIFIER (CCKTROL PIEtD) : 

Not Aonlicable 

F. RECORD LENGTH: 

320 Bytes typical - 40 column, 8 line output area apart 
from the prompting area. 

G. BLOCKING FACTOR: 

Not Applicable 

R. PURPOSE; 

This is the output created by the SETS coanuana. It is 
a display cn the user*s screen or typewriter terminal 
of the sets created during the current strategy 
session. 

This display consists of the set number or S-number, 
the number of index references in the set, and the 
expression (including the control field name, if 
applicable) that formed the set. The expression will 
wrap around if it exceeds one line. 

Paging forwards and fcachwards is available. The word 
*HORE:' will appear at the bottom of the list if there 
Is more data forward. 



SAHFLE OOTFnT 


ENTEH : 

SETS 



SET# 

1TREFS 

EXPBESSICS 

PAGE 1 

aa 

tbbb 

ti 

41 

44 

n 

41 

cccccccccccccccccccccc 

cccccc 

aa 

-HOPE; 

bbhb 

(FEOHt dddddd) 

cccccc 


Where: 

aa 

bbhb 
ccc etc. 

dadddd 

-MOPE: 


set DUffiberr 

nnfflber of referencesr 

expression* 

centre! field name, 

forward continuation indicator* 


2 
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TOPIC F.7 - DATA SETfiXEVAt 

A. DATA SET NAME: 

EXECUTE Display FotBat 

B. CREATED BY: 

EXECUTE (SDBEXSR) 

C. TYPE OF FItE: 

Terminal Comnanication 

D. ORGAWIZATICN: 

Character Display Screen 

E. KEY IDENTIFIER (CCNTSOL FIEID) : 

Not Aoplicable 

F. RECORD LENGTH: 

880 Bvtes - typical 40 column, 22 line output area 
apart from the prcmptinq area, 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 

This is the output generated by the EXECUTE command 
which may appear in the output area of the screen. If 
set numbers are not beina displayed in the output area, 
then the output from EXECUTE will appear in the prompt 
area of the screen, 

Nhen the EXECUTE output is being placed in the output 
area of the screen, the screen image is transmitted in 
a single output operation to the display screen. 

The display is adapted to the si?e of the display 
screen being used, including the degenerate case of a 
typewriter terminal (one line) • 

The output screen may contain from one line to the 
whole output area as output. 



PAGE 139 


EXECUTE CoEtnand Screen Display: 


aa bhlbb cccccc ••• 


where: 

aa = set nuiober 

bbbbb = nomber of references 

ccccccc ••• = SEIECT (search option) expression* 
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TOPIC F.8 - EflTA BETRIEVAL 

A. DATA SET DAHE: 

PRINT Data Set FcrtBat 

B. CREATED BY: 

PRINT (PDBPBNT) 

C. TYPE OF FIIE: 

(5) Non-data base file and 
( 2 ) Fornatted print-ont 

D. ORGANISATION: 

VSAM 

E. KEY IDENTIFIER (CCKTRCt FIEID) : 

Not Applicable 

F. PRINT LENGTH: 

132 Bytes maxiraaw printed pins record length and 
carriage ccntrcl fields (5 bytes), 

G. BLOCKING FACTOR: 

Block size - 4056 bytes. 

H. PURPOSE: 

This is an output data set produced by the PRINT 
command. It consists of line images vritten using a 
PL/I file named PRINTER, At the end of a terminal 
session a TSS PFIKT task is initiated to print the data 
set off-line on a line printer, 

A leader page sfaovs the user’s name and mail stop for 
distributlcn. Following the output produced for each 
PRINT command is a separator page having 36 dollar 
signs cn the first line. 



PBIKT Command - lEADIR PAGE 


DISTBIBTITE TO: xxxxitxxxx etc. 

HAii STOP; yyyyyyy etc. 

where; 


XXX etc 

yyy ®tc 


nser*s name 
mail stop 



PAGE 1*12 


PRINT Consmand - TYPICAI FORMAT 1 PAGE 


PRINT OF SET xx. Format 1. 

aaaaaaaa: ddddddd 
aaaaaaaa: eeeeeee 
aaaaaaaa: fffffff 


uheE€: 

aaaaaaaa = kev field name 

d thru f = Aey ^alue (wraps around to column 1 if more than 
122 characters) . 
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PEIKT Command - TYPICAl FOEMIT 2, 3 or 4 PAGE 


PRINT OP SET XX, FORMAT y, : vvvvvvvvvvv’v PAGE wsuvw 

aaaaaaaa: d 
tbbfcbbbb: e 
? f 

cccccccc: qggg •*••• gogg 

gqggggqggq9gggg 

gggggg 


vhere: 


aaaaaaaa = field name having a single short element* 
bbbbbbbb = field name having two short elements, 
cccccccc = field name having a long element, 
d, f = element value up to 122 characters (no maximum 
number of elements). 

ggg etc. = 379 character element value (no maximum) « 
zzz etc. = Aey field name. 

wv etc. = first 74 characters of key value* 



PaGR 144 


PRIHT Cofflffiand - TYPICAL SET 98 (saved screen iaiaqel PAGE 


DISPLAY OF SCREEN nnnnnnn 
xxxxxyxyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 
X X 
X X 
X X 
X X 
X X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


where: 

nnnnnn = relative saved screen nninber* 
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topic - TATA PFT’RIEPAL 

A. DATA SET SAME; 

EXPTAB - Expand Term Table 

B. CHEATED BY: 

5DBXPNE 

C. TYPE OF FILE: 

(4) Table 

D. OPGANIEATICN: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTRCl FIELD) : 

Mot Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

fl. PURPOSE: 

1. EXPTAE EXTERNAL CONTROLLED. 

This table contains a list of alphabetically 
sequential teriBs taken from an inverted index file 
and inforiaaticn relating the terns to reference 
nuirbers (E-nunbers) used in the SELECT command. 

2. TERMS AREA (2500) , 

This area contains a linked list of terms 
read ftcm the inverted index. 

2. FIRST-EFT POINTER. 

Points to the first term in the linked 
list. 

2. lAST-PRT POINTER. 

Points to the last term in the linked list. 

2. TOP-FTR EOINTER 

Points to the first term displayed on the 
current page of data. 
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2, EOTTOH-FTR POIUTEP 

Feints to the last term aisplayed on the 
ctirrent page of data# 

2, riFST - E# fiXNftPY FIXED. 

Contains the reference number for the first 
terms in the list. 

2. IfiST E# EISAEY FIXED. 

Contains the reference number for the last 
term in the list. 

2. TOP-E# BINAPy FIXED. 

Contains the reference number for the first 
term on the current page. 

2. EOTTOH-E# BINAEY FIXED. 

Contains the reference number for the last 
term on the current page. 

2. 10-E# BINARY FIXED. 

Contains the lowest valid reference number. 
(Either 1 or the reference number of the 
index origin.) 

2. FT-E# BINARY FIXED. 

Contains the highest valid reference number. 
(Either 999 or the reference number of the 
index end.) 

I. PI/I DECIAEATION 

DCL 1 EXPTAB EXT CONTFCllEt,/*DEFINE THE TEBH TABLE ♦/ 

2 TERMS AREA (2500), /♦TERM STORAGE AREA V 

2 FIRST^PTR POINTER, /♦FIRST LIST ENTRY POINTER*/ 

2 LAST_PTR POINTER, /*IAST LIST ENTRY POINTER */ 

2 TOP PTB POINTER, /♦FIRST LINE ON PAGE PTE */ 

2 BOTTOM PTF POINTER, /♦lAST LINE ON PAGE PTR */ 


2 FIRST Fi BIN FIXED, /♦FIRST ENTRY*S E# */ 
2 LAST i# BIN FIXED, /*LAST ENTRY’S E# ♦/ 
2 TOP E# EIN FIXED, /♦FIRST E# ON PAGE */ 
2 BOTTOM_E« BIN FIXED, /♦lAST E« ON PAGE */ 
2 LO E# BIN FIXIC, /♦LONEST VALID E# ♦/ 
2 HI'’e# BIN FIXED; /♦HIGHEST VALID E# ♦/ 
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TOPIC F,10 - DATA RElBIEVAl 


A. DATA SET WARE; 

FLDTAB - Field Raise Tafcle 

B. CHEATED ET; 

DBPFLDT entry of nodule FDBFAC 

C. TYPE OF FIIEt 
(4) Table 

D. OHGAHIEfiTICN: 

linear strccture ccntaining adjustable arrays, 

E. KEY IDENTIFIER fCCNTROI FTEID) : 

FIDTAB is the roaiot structure name. It is the name of 
an external variable containinq the data. 

F. RECORD LENGTH: 

918 bytes <396 hexadecinal) roiniBum plus 10 (A hex) 
bytes per field nane. 

The fflininu® length includes the necessary PL/I dope 
vector <iee bytes = BC hexadecimal) and space for the 
FECLEN and keynacie field names, 

G. BLOCKING FACTOR; 

Not Applicable 

fi. PDRPOSE: 

The field name table, FLDTAB, contains a list of the 
names of the fields in the current data base organized 
particularly for use by the DISPLAY and PRINT commands 
and index indicators, particularly for the EXPAND and 
SELECT commands, of field names for which there are 
inverted indexes. The sizes, base addresses and names 
of sequential format definition tables are tabulated. 
The base addresses and names of columnar format 
definition tables are tabulated. 



ikAA^A****************************************************************************************************^'^ 

DATAPLEX - XXXXXX ' 

******************************************************************************************************************** 

*****^jV*A****A**************A****A********************************************************************************** 

******************************************************************************************************************** 


*F 

* L 

* D 

* 

* 

A 
A 
A 


N 


A 


M 


E 


A 

S 

S 

0 

c 

F 

I 

L 


SIRS 
U N E U A I 

B V A B R T 

F F D C 


0 N 


E E 


V B N V U I 
U A N N 
M R I D 
A E Q E 
L L U X 
I T E E 
G LX 
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R 


V 


E 


E 


F 

L 


F 

L 


E 

L 


NAMEFLD 


E 


N 


F F 
L L 
D D 


E 


0 


U 


R 


R 


D 


M 


R 


E 

N 


I 

M 


E 


R 


D 


A 
A 
A 
A 
A 
A 

ATI D T R ,, * 

T NT 'Y G * 

AAA*AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA*AAAAAAA*AAAAAA*AAAAAA*A*AAAAAAAAAAAAAAAAAA*AAAAAAAAAAAAAAAAAAAAAA*((^#IcAA 

XXXXXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXX XXXX XXX XXXX X.XXXXXXXX XXXXXXXX XXXXXXXXXXXXXXXXXX 


A 


M 


R 


X.XXXXXXXX XXXXXXXX XXXXXXXXXXXXXXXXXX 
X.XXXXXXXX XXXXXXXX XXXXXXXXXXXXXXXXXX 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAA 


AS F 

D 

B 

D 

S 

D 

M 

M 

L 

R 

RSECTYCD * 

*U I 

E 

s 

E 

p 

A 

N 

N 

0 

E 

A 

*F L 

S 

E 

S 

A 

T 

T 

T 

A 

C 

C M * 

*I E 

c 

L 

C 

N 

A 

N 

N 

D 

S 

0 A * 

*X T 

R 

N 

0 

N 


A 

I 

A 

E 

D S* 

A Y 

C 

G. 

K 

E 


B 

N 

B 

C 

E K* 

* P 

T 

T 


D 


L 

G 

L 

F 

A 

* E 


H 




E 


E 

P 

A 

AAAA^ 

:A AAAAAAAsVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

X X 

XXXX 

XXXX 

X 

X 

X 

X 

X 

X 

XXXX 

XXXXXXXX: XX 


XXXXXXXX:XX 


FIGURE 1. SAMPLE LISTING FORMAT 
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I. SCRFMATIC tIAGPAM: 

See Figure 1 

J. PL/I DECIAPAIICH; 

/♦ FLBTAB: NASIS SYSTEM FIEID NAME TABtE FOB 

DATABASE-2. 

THIS TABLE IS AtlCCATED (CH FREED AND BEALLOCATED) AND 
INITIALIZEE BY A CALI TO THE ENTRY POINT DBPFLDT OF 
HODOLE PEBFAC. FACB CALI TO THIS ENTRY POINT CADSSS 
THE ENTIRE TABLE TC BE HE-INITIALIZED TO THE VALUES FOB 
THE CURRENTLY SPECIFIED DATABASE FILE. THE VALUES HIIL 
BE ADJUSTED TO REFLECT THE DATA AVAILABILITY BASED UPON 


THE SECURITY CODE ENTERED 
DECLARE 

1 FLDTAB EXT CONTROILED, 

3 DATAPLEX CHARACTER <8> , 

3 FIELD, 

5 # FIXED BINARY, 

5 BECISN CHARACTER (8) , 

5 KEYNAME CHARACTER (8) , 

5 NAME(*> CHARACTER(8) , 

5 INDEXID<*) CHABACTER(I) 

5 SUBFILE CHARACTER (1) 

3 SEQ_FOPMAT (25) , 

5 # FIXED BINARY, 

5 BASE POINTER, 

5 NAME CHARACTER (8) , 

3 COL_FORMAT (25) , 

5 BASE POINTER, 

5 NAME CHARACTER (8) ; 


BY THE USER. */ 

/♦NASIS FIELD NAME TABLE ♦/ 
/♦THE DATABASE FILE NAME */ 
/♦THE DATABASE FLD NAMES */ 


/♦THE NUMBER OF FIELD ♦/ 
/♦NAMES IN THE TABIE ♦/ 
/♦THE RECORD LENGTH FIELD*/ 
/♦ENTRY (FIELD. NAME(O) ) ♦/ 
/♦THE KEY FIELD ENTRY ♦/ 
/♦ (FIELD. NAME (1) ) */ 
/♦THE REMAINING FIELD ♦/ 
/♦NftMES FOR THIS FILE */ 


/♦ (FIELD. NAME (2: FIELD.#) ) ♦/ 
, /*THE INDEX FILE SUFFIX ♦/ 
/♦FOR EACH INDEXED FIELD ♦/ 
/♦ (FIELD. INDEX (0; FIELD. #) */ 
, /*THE SUBFILE SUFFIX FOR */ 
/♦EACH CONTROL FIEID OR ♦/ 
/♦SUEFILE FIELD ♦/ 

/* (FLD.S0BFILE(0:FID«#)) */ 

/♦SEQUENTIAL FORMAT INDEX*/ 
/♦THE NUMBER OF FIELD ♦/ 
/♦NAMES IN THE FORMAT ♦/ 
/♦THE FORMAT DESCRIPTION ♦/ 
/♦TABLE ADDRESS ♦/ 

/♦THE NAME ASSIGNEE TO ♦/ 
/♦THIS FORMAT (OPTIONAL) ♦/ 

/♦COLUMNAR FORMAT INDEX ♦/ 
/♦THE FORMAT DESCRIPTION */ 
/♦TABLE ADDRESS ♦/ 

/♦THE NAME ASSIGNED TO */ 
/♦THIS FORMAT (OPTIONAL) ♦/ 
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FIELD EETAlLSt 

DATA BASF “ has the name of the current dataplex* 

FIELD, - the sabscript in FIELD. NAME of the last field 
naroe. Ttius it is the number of field names 
exceptinq FICIEN, 

FIELD. PECLEN - the name of the anchor record length 
field. This may be referenced as FIELE.NAME (0) 
when convenient. 

FIELD, KEYNAME - the name of the current data base^s 
anchor key field. This may be referenced as 
FIELD. NAME(1) when convenient. 

FIELD. NAME - an array containing the names of the 
fields in the current data base arranged as shown 
in paragraph I, 

FIELD, INDEYID - An array parallel with FIELD. NAME, A 
non-blank Indicates an indexed field, 

FIELD, SUBFILE - An array parallel with FIELD. NAME. In 
the anchor and associated portion of the array 
(subscripts C through FLDTAB. SEO. FORMAT (3)) a 
non-blank indicates a subfile control field. In 
the subfile pcrtion of the array (subscripts above 
FLDTA£.SEQ-F0FMAT(3)) the character indicates 
which subfile a field is on. 

SEQ_FOFMAT - an array serving as a directory of the 
sequential fcrmat definition tables. The first 
fcur entries ace posted by FDBPAC to overlay 
FIFLD.NAME beginning with FIELD, KEYNAME as shown 
in Paragraph I, The remaining entries are posted 
by BEBFOFM to refer to dynamically allocated 
sequential fcrmat definition tables, 

SEQ^FORMAT. - the number of field names in a sequential 
format definition table* 

SEQ^FORMAT. BASE - the address of a sequential format 
definition table or a NULL pointer value if it is 
undefined* 

SEQ^FOSWAT. NAME - the name assigned to a sequential 
format or blanks. 

COL^FOBMAT - an array serving as a directory of the 
columnar format definition tables. The entries 
are posted by FDBFCBH to refer to dynamically 
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allocated columnar format definition tables# 

COL_FOT?nAT*BASE - the address of a columnar format 
* definition table or a NULL pointer value if it is 
undefined* 

COL^FOSflfiT.NAME - the name assigned to a columnar 
format or blanks* 
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Figure 1 


Schematic Diagram of FLDTAB 
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TOPIC F. 11 - CATS RETSIBVAL 

fl. DATA SET NAME; 

FORMATS Display Foiniat 

B. CREATED EY; 

Formats - RCBSTET 

C. TYPE OF FIIE: 

Terninal Display (Pageable) 

D. ORGANI7ATICN; 

Not Applicable 

E. KEY IDENTIFIER (CCNTSOL FIELD); 

Not Applicable 

F. RECORD LENGTH; 

Not Applicable 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE; 

This terminal display is created to display the names 
of the formats currently available to him. A title, 
identifying the display, is generated, followed by the 
format oatres* The eight character names are sorted 
into alphabetic seguence, tagged with an asterisk if 
the format is in cere, separated by a blank and grouped 
into a SCRNWTH size line before they are written to the 
display. 
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TOPIC P,12 - DATR FETBlIVAl 


A. DATA SET KAME: 

SETAB Sets Table 

B. CREATED ET: 

Hot Applicable 

C. TYPE OP FILE: 

Table 

D. OEGANIZATiCfl; 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTROL FIELD) : 

Not Applicable 

F. BECOBD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. POEPOSE: 

1. SETAE EXTERNAl CONTROLLED. 

This structure contains the sets, i«e«, current 
strategy, that the user is creating and associated 
inforiration. 

2. COEBENT_# EISASY FIXED (15,0). 

This is the value of the last set number that vas 
created. 

2. SET (0:99). 

There is one set created for each select, search 
and LIHIT COHHANE. 

3. POINTER (97) POINTER. 

There is a pointer to a list of beys for 
every set that is created. POINTER (3) 

points to the list for SET (J), 

3. SIZE BINARY FIXED (31,0). 

This is the number of beys associated vith 



PAGB 154 


the corresponding set nusber. 

3, TYPE CHfiFfiCTER (1), 

'Ihis is the SGBFItE SOTFIX that describes the 
origin of the beys in the set* 

I. PL/I OECLAEATICNt 

/♦ NASIS SYSTBH SET TABLE ♦/ 

DCL 1 SETA9 EXTBNL CCK1BOLlED,/*DEFINE THE SET TABLE */ 

2 CUEPEHT # BIN FiyEE(15,C), /*LAST ASSIGNED SET HDHBEF ♦/ 

2 SET (0:99), /♦DEFINE THE SET ENTPIES ♦/ 

3 POINTER PTB, /*TBE SET LIST POINTER ♦/ 

3 SIZE BIN FIXED<15,0), /*THE SET SIZE (# OF KEYS) */ 

3 TYPE CHAR(1); /♦THE SET TYPE (SUBFILE ID)*/ 
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TOPIC F.13 - DAIA RET8IEVA1 


A. DATA SET NAME: 

TJSEBTAE User Data Table 

B. CBEJITED EY: 

SDBMTT 

C. TYPE OF EIIE: 

Table 

D. ORGANIZATION: 

PL/I Data Structure 

E. KEY IDENTIFIER (CCNTROl FIELD) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

e. PURPOSE: 

1. OSERTAE EXTERNAL CONTROLLED. 

This structure contains user oriented and status 
inforciation useful to all NASIS sub-systeras* 

2. NASIS_ID CHARACTER (8) VARYING. 

This field contains the id specified by the 
user vhen initiating bis NASIS session. 

2. SECURITY CHARACTER (8) VARYING. 

This field contains the user^s sost recently 
specified security code, i.e. his PASSWORD at 
logon or in respond to a SECURE Command. 

2. CWNER_ID CHARACTER (8) VARYING. 

This field contains the TSS userid of the 
cwner of the file specified by the user. 

2. STRATEGY CHARACTER (16) VARYING. 

This field contains the narae of the strategy 
in the event of a RERUN. 
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I. Pi/I DECIAPATION: 


2. TASK_ID ElNAPt EIXED (31,0) • 

This field contains the task identification 
number assigned to the nser at logon time* 

2. SEQUENCE IINABY EIXE0 (15,)). 

This field contains a sequence number used by 
the system in defining unique ddnames to 
dynamically specified files* 

2. PITS* 

The status of the user*s session is reflected 
ty the settings of the following bit 
switches* 

3* MTTPLAG BIT ( 1) . 

Describes whether the task is running 
under MTT or not • 

3. DISABLED BIT (1) . 

Defines the status of attention 
interupts • 

3. RETEIEVE BIT(1). 

Describes whether the task is running 
under the retrieval system or not. 

3* BESTAHT EIT(1). 

Describes whether the session is a 
restart* 

3. BBBUN BIT(1) . 

Describes whether the session is a 
rerun* 

3* TESTHODE BIT (1) . 

Describes whether the session is 
productive or a debugging run* 

3. CONVFLAG BIT(1). 

Describes whether the task is 
conversational or not* 


NASIS SYSTEH OSBP DATA TABLE ♦/ 


/* 

DCL 

1 OSEBTAB EXT CCNTRClLIt, 

2 NASIS ID CHAR(8) VftB, 

2 SECURITY CHAB(8> VAB, 

2 0HNEB_ID CHAF(8) VAB, 

2 STRATEGY CHAB(16) VAB, 

2 TASK ID BIN FIXEE(31,0), 


/♦NASIS USER DATA TABLE ♦/ 
/♦USER'S IDENTIFICATICN ♦/ 
/•USER'S SECURITY CODE ♦/ 
/♦FILE OWNEB'S IDENTIFIER */ 
/♦STRATEGY NANE FOR BEBUN ♦/ 
/♦TASK IDENTIFICATION f ♦/ 
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2 SEQUENCE BIN EIXED(15rO), /♦DDN6HE SEQUENCE NUNBEF ♦/ 


BITS, 


/♦SISTEN STATUS FLAGS 

♦/ 

3 

STTEiAG 

EIT(1>, 

HTT BODE 

*/ 

3 

DISABLED 

EITd), 

/♦•1«==ATTN*S DISABLED 

*/ 

3 

RETEIEVE 

EIT(1), 

/♦f V=*=RONNIBG RETRIEVAL 

♦/ 

3 

RESTAST 


/♦*1«=^IN RESTART BODE 

♦/ 

3 

RERUN 

EITdl , 

/*M« = IN RERUN BODE 

♦/ 

3 

TESTNODE 

EIT(1>, 

/♦•V=NO STRATEGY SAVING 

♦/ 

3 

CONVPIAG 


/*M«-CCKVERSATIONAL 

♦/ 

3 

EXTBAEIT 


/*M»=fNO ASSIGNED VALUE) 

*/ 
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X is actoal value 
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TOPIC F.14 - EATA BETRIE7AX 

A. DATA SET NAHE; 

EXPLAIN Display Format 

E, CEEATED EY: 

EXPLAIN (message, BESPONSE and term options) - BDBEXPI 

C. TYPE OF FILE: 

Terminal Display (Pageable) 

D. 05GANI2ATICS: 

Not Applicable 

E< KEY IDENTIFIER (CCKTROL FIELD): 

Not Applicable 

F. RECORD LEWGTR: 

Not Applicable 

G, BLOCKING FACTOR: ' 

Not Applicable 

H. PDBPOSE: 

This terminal display is created to display to the user 
the results cf his message response or term 

explanation# The date will be written to the screen as 
read from the message file with no Indentation or data 
tagging, but with word*hreak specified# 
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TOPIC P,15 - BATA RETRIEVAl 

A. DATA SET NAME: 

GFIELDS Eisplay Foimat 

B. CHEATED BY: 

GFIEtDS - PDBGFIDS 

C. TYPE OF EIIE: 

Terniinal Display 

D* OBGANIEATICN: 

Not Applicable 

E. KEY lOENTIFIEF {CCHTPOI FIELD): 

Not Applicable 

F. FECOHD LENGTH: 

Not Applicable 

G« BLOCKING FACTOR: 

Not Applicable 

H, PDBPOSE: 

This terminal display is created to display the naaes 
assigned to the various generic levels of the key of 
the generic file. A title, identifying the display, is 
generated, followed by the names. The eight character 
names, separated by two blanks, are grouped into SCFNNTH 
size lines before they are written to the display. 
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TOPIC P.16 - DAIA EETBIE7AI 

A. DATA SET NAME: 

SEQ_POBH - Sequential Format Definition Table 

B. CREATEE BYt 

DBPFLDT entry of RDBPAC (formats 1-4) overlay 
FLDTAfi. FIELD, NAHE 

RDBFORfl (formats 5-25) - by the FORMAT command, 

C. TYPE OF FILE; 

(4) Table 

D. OBGANIZATICN: 

Adjustable linear array cf 8-character field names, 

E. KEY IDENTIFIER (CCNTROL FIELD): 

SEQ_PORM is the major structure name. 

F. RECORD LENGTH: 

8 bytes times the number of field names In FLDTAB. 

G. BLOCKING FACTOR: 

Not Applicable 

H. PDEPOSE: 

A sequential format definition table, SEO^PORH, 
contains a list cf the names of the fields in a 
sequential format for use by the REVIEW and RECORD 
commands. The Aey field name is always the first in 
the list. The number of names in the list and the base 
address of the list is posted in FLDTAB, SEQ^FORMAT, 
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I. PL/I DECLABATTCN: 

DECLARE 

1 SEO FORM BASED(SEO_BASE) ,/* SEQUENTIAL FORMAT SPECS »/ 

3 FIELD, 1_, /* OVERLAID BY FIELD(I) */ 

5 #FIELDS FIXED FIN, /♦ NOT OSED ♦/ 

5 PAD CHAP (6), /♦ FILLER TO CHAR (8) */ 

3 FIELD (2:1 

REFER (SEC_FOR«.#IIELDS) ) ,/♦ NOT USED ♦/ 

5 NAME CHAR (8); /♦ NAME LIST ♦/ 
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TOPIC P.17 - DATA RETfilEVAI 

A. DATA SET HAHE; 

NASISIE. STRATEGY. I AlASET 

B. CREATED BY: 

PTSSTBT 

C. TYPE OF FIIE: 

f5) Non-Data Base 

D. ORGANIZATICN: 

VISAM 

E. KEY IDENTIFIER {CCKTBOl FIELD): 

Strateqy name supplied bv the user (region name) plus a 
seven digit integer generated Key, 

F. RECORD LENGTH: 

256 Bytes 

1. Key length - 23 

a. Region naie - 16 

t. Integer key - 7 

2. Data length - 231 

3. Record length field - 4 

4. Keyboard/Cardboard Indicator - 1 

G. BLOCKING FACTOR: 

Hot Applicable 

8. PURPOSE: 

This data set is used to contain the command strings 
that the user has entered through the NASIS system. 
The current strategy is kept in a CDEREHT_STRATEGY as 
each command is entered. After a strategy session, the 
user may save the current strategy under his specified 
name; otherwise, it will be deleted. Tese saved 
strategies can then, at some later time, be rerun by 
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use of the FEPOfi comiiiand. The saving of the current 
strategy ccmtoand strings also provides for a restart 
capability if TSS crashes while the user is running the 
MiSIS system. 
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TOPIC F.18 - DATA RETBIEVAI 
A. DATA SET NAME: 

SBCHTAB - linear Search Table of Pseudo-sets 
B* CREATED BY: 

SEIECT {search option) - PDBSLCT 

C. TYPE OF FIIE: 

Table 

D. ORGAEIZATICN: 

linear structure ccntaininq arrays* 

E. KEY IDENTIFIER (CCNTPOt FTEIB) ; 

SRCHTAfi is the ffia-)or structure name; it is the name of 
the control section containing the data. 

F. RECORD LENGTH: 

(hexadecimal) data bytes* 

G. BLOCKING FACTOR: 

Not Applicable 

H* PURPOSE: 

The linear search table of pseudo-sets, SRCHTAfi, 
contains the displavatle information for every 
pseudc-set, vhether a PRINT is to be performed on each, 
the set upcn which the pseudo-set is based (as a result 
of the search), pointers to search lists and parsing 
lists (fcE those pseudo-sets defined as boolean 
combinations of other pseudo-sets and/or sets) , and the 
testing criteria fcr each* 

I, SCHEMATIC DIAGRAM: 

See Figure 1 

J. VARIABLE DETAILS: 

3 CDEEENT.S# is the last pseudo-set number 
assigned* 
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3 HAX^S is tbe iraxinJU£B allowable pseudo-set number* 

3 ENTfiY is an array of displayable pseudo-set 
information containing the S# and its related 
EXPBESSIOH. 

3 ENTBYEEF is an array with detailed pseudo-set 
infcrirationt 

5 BECOBD is a pointer used for the parameters of 
those pseudo-sets to be EECORDed after a 
search execution* This points to SPBNTAB 
structure. 

5 CPEATED_BY is two bits identifying the type of 
SEtECT command used to create this 
pseudo-set where, 

7 SELICT_IF bit is on if the search option 
was used, or 

7 SELECT_BOOt hit is on if the boolean 
option was used* 

5 RE?_SET is a structure used for identifying 
the searching universe (or set) wherein, 

7 PTR is pointer to set to search within 

7 S# is a bit on if the set to be searched 
is a pseudo-set* 

5 COBBES^SIT# is the value of the set resulting 
from this pseudo-set* 

5 IIST^PBTB is a pointer to the search list 
structure for this pseudo-set* 

5 PBRSEC is a pointer to a parsing structure for 
toolean-created pseudo-sets. 

5 DELETED is a hit on if this pseudo-set has 
teen deleted* 

5 PIEIDNAH is the field name to be tested, 

5 OP^CODE is a value of the operator to be used 
for the test, as follows? 

1. greater than 
2* less than 
3* eoual 

h. greater than or equal 
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5* less than or egual 
6* not equal 
7* tetneen 
8« containing 

5 VAltlES Is a pointer to test values^ this 
points to VALOTAB. 

3 SBCH_IK_PROG0ESS is a bit on if a search is being 
executed ♦ 

3 IFSO is set on if any pseudo-set is to be 

printed. 

3. SLCT_ERBOR is a bit on if error occurs in SEIECT 
during execution of search. 

3. 5LCT_FINTSH is a bit on if all SELECT functions 
are ccaplete during execution of search. 

1. S#_XREFS is a bit array used to record the S#* 
which reference the Si in question* 

1. SPRNTftE is a table of record parameters of an 
Si. 

3. FOFHAT is a table of record foraat 

parameters. 

5. TYPE 


5. FIRST 5. LAST 

3. NEXT_SPENTAE is a pointer to next SPBNTAB 
Structure. 

1. VALTJE^i is set for adjustment of valutab at 

allocation, 

1, VALUTAB is a table of pointers to values. 

3. #0F is number of pointers in this table. 

3. VALUPTR is an array of pointers to values. 

1. VALDE^SI E is set for size of value at 

allocation. 

1. VALUE is a table containing a value to be used 
during search. Pointer is in VALUTAB. 

3, SI E is length of value. 
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TOPIC F.19 - DATA RETBIBVAI 


A. DATA SET ?!AHE: 

COL^FOSfi - Colnsinar Format Definition Table 
B* CHEATED BYs 

HDBFORM - the FOBBAT commana 

C. TYPE OF FIIEt 
<4) Table 

D. ORGANIZATION; 

Structure containing miscellaneous items, a linear 
array, ana an adjustable array of structures. 

E. KEY IDENTIFIER fCCNTROt EIEID) : 

COI^FORH is the major structure name. 

F. RECORD LENGTH: 

1340 bytes plus 40 bytes per field specification, i,e., 
1540 Ijytes minitBum (5 field specifications) to 3980 
bytes maxiEum {66 field specifications). 

G. BLOCKING FACTOR; 

Hot Applicable 

H. POFPOSE; 

A columnar format definition table, COL_FOBH, contains 
coded specifications for a columnar display. It is 
used by the DISPLAY and PRINT commands and may he 
revised by the FOFHAT command. The optional line for 
the page number, lines for titles, and lines for 
headers hold literal text for output. For each field 
specified, the field name, column, isidth, summary 
reguirements, tally, and summation values are carried* 
{Average is not carried in COL^FORM; it is computed in 
DISPLAY or PRINT.) 

I. PL/I DECLABATICN; 

DECLARE 

1 COL FORH BASED (COL^BASE) , /♦'CCIUNNAR FOSHAT SPECS V 
3 LINESIZE FIXED BIN (31), /*SCBNCOL OR 132 V/ 

3 RECORD^CODNT FIXED BIN (31) ,/*INIT (0) ♦/ 



PiGB 170 


3 TOP, 


5 (PAGE#, 

/*1 

OB 

0 LINES 

*/ 

#TITLES, 

/*0 

OF 

MORE LINES 

*/ 

#H1ADEES, 

/*0 

OR 

MORE LINES 

*/ 


DEFROLT_HDR) FIXED OB BELATIVE RE&DIB LINE*/ 

5 LlHEdO) CBAB (132) , 

3 COL_GIVEN BIT(1), /*1: FIELD COLUMNS GIVEN */ 

/*0; FIELD COLUMNS DEFALTD*/ 

3 ^FIELDS FIXED BIN, 

3 FIELD ( I BEFEB(CCI_FCEH.#FIELDS)), 

5 NAME CHAF (8) , 

5 COLUMN FIXED BIB, /*FOF TRUNCATION INDICATOR*/ 

/*USE COLUMNS 1*.. FOE VALUE*/ 


5 NIDTH FIXED BIN, 

/*NITHOUT 

♦/ 


/*TRUNCATION INDICATOR 

♦/ 

5 ELEMENI_LIHIT FIXED BIN 

,/*FOR RETRIEVAL 

*/ 

5 element'tallx. 



7 REQUIRED BIT(1) , 

/*INIT(*0*B) 

*/ 

7 # FIXED BIN (31) , 

/*INIT(0) 

*/ 

5 ELEHEHT_SUB, 



7 REQUiiED BIT(1) , 

/*INIT(*0"B) 

*/ 

7 ZONED BTT(1) , 

/*1: ZONED VALUE (INIT) 

*/ 


/*0: BINARY VALUE 

*/ 

7 VALUE FLOAT EIN(53>, 

/*IHTT(0) 

*/ 

5 ELEMENT AVERAGE REQUIRED 


BIT(1); 

/*INIT(*0*B) 

*/ 



PiGE 171 


TOPIC F.20 - DATA HETFIEVAL 

A. DATA SET UAHEt 

FIELDS Display Format 
B* CREATED BY; 

FIELDS - REBFLDS 

C, TYPE OF FILE; 

Terminal Display <Pageable) 

D, ORGANIZATION: 

Not Applicable 

E, KEY IDENTIFIER (CONTROL FIELD) ; 

Hot Applicable 

F, RECORD LENGTH; 

Not Applicable 

G, BLOCKING FACTOR; 

Not Applicable 

H, PORPOSE; 

This terminal display is created to display the names 
of the fields available to him from the current file. 
A title, identifying the display, is generated, 
followed by the field names. The eight character 
names, flagged by an asterisk, if indexed, and 
separated by a blank, are grouped into SCRNNTH size 
lines before they ace written to the display. As each 
subfile is encountered, a heading, identifying it and 
its control field, is generated. 
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TOPIC F.21 • EETBIEVAt 


A. DATA SET NflHE? 


IIHIT 

B, CREATED BY: 

The module whose name is formed by concatenating ”PL" 
to the data base name i.e, **RLERTS”. The writeup on 
creating this module is in the DBA Oser*s Guide, 

C, TYPE OF FIIE: 
table, 

D, ORGAWIZATICN: 

PL/I Data Structure 

E, KEY IDEHTIFIER (CCHTRCl FIELD); 

Hot Applicable 

F, RECORD LENGTH; 

Hot Applicable 

G, BLOCKING FACTOR; 

Not Applicable 

H, PURPOSE: 

The LIPIIT structure contains the anchor key subfield 
names, their starting position vithin the key, and 
their length. This table is used by the LIMIT comiEand 
when limiting a set, 

I, PL/I DECLARATION; 


DECLARE 
1 LIMIT 

3 KEY SIZE 
3 #_ENTBTES 

3 FIELD f16) , 
5 NAME 
5 START 


5 LNGTH 
5 TEST 


EXTERNAL CONTROLLED, /* DEFINE THE TAB*/ 
BIK FIXED, /* LENGTH OF FORMATTED KEY,*/ 
BIN FIXED, /* NUMBER OF SUBFIEXDS ♦/ 

/* DEFINED OH THE ANCHOR KEY, */ 
/♦ ONE ENTRY FOR EACH SUBFIELD*/ 
CHAR <8) VAR, /* NAME OF SUBFIELD. */ 
BIN FIXED, /* START OF SUBFIELD, */ 

/* HHERE 1 = FIRST CHARACTER */ 
/* POSITION OF THE KEY. */ 

FIB FIXED, /* LENGTH OF SUBFIELD. */ 

BIT (1), /« WHETHER OR ROT TO APPLY */ 
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THIS TEST WHEN IIHIT IS 
/# CALLED, */ 

5 VALUE (2) CHAS (50) VAB; 

THE VALUES TO COHPAHE A V 
KEY SUBFIELD AGAINST, */ 
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TOPIC F,22 - BETFIEVRt 
fi. DftTa SET NAHE; 

IIHXT Cosinand Display Porraat 

B. CREATED BY: 

RDBIHT 

C. TYPE OF FIIE: 

Terminal Display 

D. , ORGAWIZATIOM: 

Not Applicable 

E* KEY IDENTIFIER (CCKTEOl FIEID) : 

Not Applicable 

F. RECORD lENGTH: 

Not Applicable 

G. BLOCKING FACTOR; 

Hot Applicable 

H. PORPOSE; 

This display allows the user to view the new set 
created by LIBIT. 

I. SAHPLE DISPLAY: 

SET# FRETS EXPRESSION PAGE 1 

XX xxxx xxxxxxxxxxxxxxxxxxxxxx 
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TOPIC G.1 - OSAGE STATISTICS 


A« DATA SET NAHE: 

STATIC Data Set Descriptors 

B. CREATED BY: 

Coffiinand System and Maintenance System 

C. TYPE OE Bill: 

Dataplex 

0RGAKI2ATT0H; 

YISAH 

E. KEY IDENTTIIER (CCSTROI FIELD): 

Rot Applicable 

P, RECORD LENGTH: 

4000/Y 

G. BLOCKING FACTOR: 

Not Applicable 

H* PURPOSE; 

Maintain system statistics: 

1. Retention of Statistics 

In order to maintain the nsage statistics, a file 
is required; and, in order to enhance the usage of 
these statistics (to interface smoothly ttfith the 
HASIS system), a data base is required, lith the 
statistics on a data base, the full power of the 
NASIS system can be used to manipulate them. If 
any special retrieval or report programs are 
required, then, currently, DBPL/I and TSPL/I are 
available; and the Report Generator and Linear 
Search features are also available. 

Each TSS-ID joined to the NASIS system will have 
its own statistics data base, and it can be 
shared with ether TSS-ID*s just as any other data 
base. 
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The narae of the statistic data base will follow a 
uniform format for each TSS-ID ioined to SASIS» 
That is, the name of the statistic data base will 
be STATIC and the fully qualified data base name 
will follow the standard naming conventions, eg« 

tss-id* STATIC. STATIC# 
tss-id. STATIC. STATIC 

for the descriptors and anchor file, 
respectively. 

This design also facilitates the integrity and 
security of the statistic file in that only the 
owner or those permitted by the owner can access 
the file. 


2. Accumulation of Statistics 

The STATIC data base will be composed of two 
different record types. The data required, and 
how it will be kept, is as follows: 

a. KEY 

SSPAFATE - A single character which will 
distinguish the record type. A 
value of tero will indicate a 
maintenance record. A value of one 
will indicate a retrieval record. 

IDENTIFIER - For maintenance records, it will 
be the data base name padded with 
dollar signs. For retrieval 
records, it will be the NASIS-ID 
padded with asterisks <to eight 
characters) • Appended to the 
NASIS-ID will be the data base 
owner*s TSS-ID and the name of the 
inverted inde^ file. 

b. The maintenance fields are as follows: 

TOTAITBB - the number of transactions 
processed. 

ANCOUNT - the number of records on the 
anchor file. 

TOTALRON - the number of maintenance runs. 

HAINDATE - the date of each maintenance run: 
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eleroent 1 will be the dates of the 
data base creatioiSr eleraents 2 
through 13 will be the dates of 
individual maintenance runs* After 
the dates have been filled, the 
second one will be dropped and the 
newest date added on the end. This 
field is variable-length with 
fixed-length elements. There is a 
maximum of thirteen elements* 


TPAHCWEH 

TFANCBEI 

TBAtJCCPD 

TRSnBNFa 

TPSOBDEI 

THS0ETJPt 

thinvhbf 

TRINVEEL 

THINVtJPD 

- where TB indicates transaction; 
ABC, the anchor file; SUB, the 
subrecord files; IWV, inverted 
files; NEB, new records; EEL, 
deletions; and UPD, updates. 

These are the transaction count fields 
cegulred for maintenance statistics* These 
fields will be used in conjunction with the 
data field* They will also have a maximum of 
thirteen elements* The elements will 
correspond directly with the date field and 
will represent the number of that given type 
of transaction encountered during the 
maintenance run. Bhen all of the elements 
are present, the next count inserted will 
cause the second count to be added to the 
first element and the second element dropped* 
The newest element will go on the end* 

The retrieval fields are: 

CONWTIBE - the connect time 
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CPOTIBE • th€ CPO time 

TOTALES “ number of sessions 

ETH&'TI.EN - the Strategy length 

STSATSTR = the number of strategies stored 

STAROTE - the date of the first terminal 
session 

lASTDATE - the date of the last terminal 
session 

STRATHRE - the names of the stored strategies 
- maximum of four. 


NOTE: The eight fields above are to be 

accumulated for each NASIS-ID. There 
may be many records for each NASIS-ID; 
therefore, these statistics will be kept 
in a special record. The OSNEF-ID and 
the inverted file name in this special 
record will be egual to blanks* 


#EXPAKDS 

«SELECTS 

«SEABCHS 

#CORECTS 

SESSDATE 


number of EXPANDS per session 
number of SItECTs per session 
number of SEARCHes per session 
number of CORRECTS per session 
the date of each session 


These field all contain a maximum of thirteen 
elements* The first element represents an 
accumulator and contains the total for all 
occurrences up to the SESSDATE, which is the date 
of the last ejected session of the list <the 
earliest session) • Regardless of the actual 
number of sessions within one calendar day, the 
statistics will be accumulated as if there were 
only one session. 


All of the maintenance statistics will be 
automatically updated with the Load/Create program 
and the Haintenance Mainline program. If the data 
base owner wishes to modify certain data 
pertaining to the maintenance statistics, he has 
the ability to use the CORRECT command to update 
the STATIC data base interactively. 
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All cf the retrieval statistics 'will be 
automatically updated -sitb the FINISH module of 
the command system. If required, at maintenance 
time, a "snapshot* of the statistics will be 
printed. If the data base oener (system manager) 
eishes to modify certain data pertaining to the 
retrieval statistics, he has the ability to use 
the CORRECT command to interactively update the 
STATIC data tase. 
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APPEHDIX A. 


The STATIC data base is ccoposed of the following fields: 

A. KEY 

1« Alphannseric. 

2. Fixed field. 

3. Length of 24 bytes. 

a. First byte is maintenance or retrieval record 
indicator. 

1. 0 = maintenance record. 

a. data base name left 

b. remainder padded with *$*s. 

2. 1 = retrieval record. 

a. HASIS-ID//OENEB-ID//DATA BASE 
file-name. 

1. The HASIS-ID is eight 

characters long and padded 

with • **s. 

2. The OHNEB-ID is really a 

TSS-ID, eight characters long 
and padded with ***s. 

3. The data base file-name is 

seven characters long and 
conforms to the data base - 

dataset naming conventions. 

B. TOTAITHN (Baintenance) 

1. Alphanumeric 

2. Fixed field 

3. length of 6 bytes 

4. Contains the total number of transactions. 

C. AMCODNT (Hainteoance) 

1. Alphanumeric 

2. Fixed field. 

3. Length of 6 bytes. 

4. Contains Tmmber of records on the anchor file. 

0, TOTALRON (Baintenance) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 3 bytes. 

4. Contains the number of maintenance runs. 

E. HAINDATE (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Total of 13 elements, each 6 bytes long. 

b. In the form tlM/DD/YY to indicate the month, 
day, and year of each maintenance run. 
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Element 1 will contain the data base creation 
date while elements 2-13 will be the dates of 
the individoal maintenance runs* After the 
dates ha?e been filled, the second on© will 
be dropped and the newest date added to the 
end* 

3* Total length of 78 bytes. 

F. TEAMCNEB (Haintenance) 

1. Alphanumeric. 

2. Fixed elements* 

a* Each 6 bytes long, 
b. Pfaximum of 13 elements* 

3. Total length of 78 bytes. 

G. TEANCDEL (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 bytes long, 
h. Haximum of 13 elements. 

3. Total length of 78 bytes. 

H« TfiAKCnPD (Maintenance) 

1. Alphanumeric. 

2. Fixed element* 

a. Each 6 bytes long. 
b« Maximum of 13 elements* 

3. Total length of 78 bytes. 

I. TFSUBNE0 (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 bytes long. 

b. Haximum of 13 elements* 

3. Total length of 78 bytes. 

J. TBSUBDEL (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 bytes long. 

b. Haximum of 13 elements* 

3. Total length of 78 bytes. 

K. TRSUBOPD (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 bytes long, 
b* Haximum of 13 elements. 

3. Total length of 78 bytes. 

1. TRIM7KE1 (Haintenance) 

1. Alphanumeric. 

2. Fixed element. 
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a« Each 6 bytes long, 
b. Haxisinm of 13 elements* 

3, Total length cf 78 bytes. 

H. TBIN7DEL (Maintenance) 

1. glphacniaeric. 

2« Fixed element. 

a. Each 6 bytes long. 
b« Maxiomm of 13 elements. 

3. Total length of 78 bytes. 

N. TBIWVUPD (Maintenance) 

1« Alphanumeric. 

2. Fixed element* 

a. Each 6 bytes long. 

b. Maximum of 13 elements. 

3. Total length cf 78 bytes. 

NOTE? Items F through H are transaction count fields 
for the maintenance statistics and correspond directly 
to MAINDATE. 

ta indicates TEANSACTIOW 

fiRC indicates ANCflOH PILE 

INV indicates IN7EBTED FIXE 

NEW indicates NEB BECORDS 

DEL indicates DELETIONS 

DPD indicates OPDATES 

O. CONNTIME (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. length of 10 bytes. 

4. Contains connect time. 

P. CPDTIHE (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 10 bytes. 

4. Contains total CPU time. 

Q. TOTALSES (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 10 bytes. 

4. Contains total number of sessions. 

B. STRATLEN (Retrieval) 

1. Alphanumeric. 

2. Fixed field, 

3. Length of 6 bytes. 

4. Contains strategy length. 
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STRATSTB (Retrieval) 

1, Alphanunieric* 

2 , Fixed field* 

3. Length of 1 byte. 

4. Contains number of strategies stored* 

STRATfJHE (Retrieval) 

1* Alphanunieric* 

2* Fixed element. 

a* Each 35 bytes long, 
b. Kaximns of 4 elements. 

3. Total length of 140 bytes. 

4. Contains names of stored strategies. 

STARTDTE (Retrieval) 

1. Alphanumeric. 

2. Fixed field. 

3. Length of 6 bytes. 

4. Contains date of first terminal session. 

LASTDftTE (Retrieval) 

1. Alphafiunteric. 

2. Fixed field, 

3. Length of 6 bytes. 

ROTE; The right fields above are accumulated for each 
NASIS-IE. The owner-ID and the file-name have no 

meaning. 

Therefore, the KEY of the record shere these statistics 
are meaningful will be composed of an owner-ID and a 
file-name which are blank. 

#EXPANDS (Retrieval) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 byters long. 

b. Raximum cf 13 elements. 

3. Total length of 78 bytes. 

#SE1ECTS (Retrieval) 

1. Alphanumeric. 

2. Fixed element. 

a. Each 6 bytes long. 

b. Haximuffi of 13 elements. 

3. Total length cf 78 bytes. 

f SEARCHS (Retrieval) 

1. Alphanumerics. 

2. Fixed element. 

a. Each 6 bytes long. 

b. Raximum cf 13 elements. 

3. Total length cf 78 bytes. 



PftGE 184 


#C05ECTS (H€tri€^al) 

1* Alpbanumerics* 

2* Fixed element. 

a. Each 6 bytes long. 

b. ^axlmuts of 13 elements. 

3. Total length of 78 SESSDaTE (Hetrieval) 

SESSDATE (Retrieval) 

1. Alpha numerics. 

2. Fixed element. 

a. Each 6 bytes long. 

b. Raximuct of 13 elements. 

3. Total length of 78 bytes. 

NOTE: In the last 5 fields there is a one for one 

correspondence in the elements. 

first SESSDATE - the date of the neeest session in 
the accoEulated counts. 

first (others) - the accumulated counts on all 
indicated. 

Regardless of the actual number of sessions within one 
given calendar day, the statistics will be accumulated 
as if there were cnly one session. 

When (during OPDATI) a record is encountered with the 
variable fields having all 13 elements filled, the 
•snapshot* of the given record will be taken* The last 
12 elements will then be cleared, by summing them and 
adding them to the first element, the first element 
SESSDATE will be made equal to the last element 
SESSDATE. 
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TOPIC G.2 - OSAGB STATISTICS 

fi. DATA SET WAKE? 

naintenaBce Statistics Heport Format 

B. CEEATED El: 

STATIC Report (SDEPRMTM) 

C. TYPE OF FItE: 

VS (print) 

D. ORGANTZATICH: 

Sequential 

E. KEY IDENTIFIER (CCNTSOL FIELD): 

Not Applicable 

F. RECORD LENGTH: 

133 Bytes 

G* BLOCKING FACTOR; 

Not Applicable 
H. PDFPOSE: 

To display (via listing) the status of the maintenance 
statistics* 



^INTENANCE STATISTICS FOR SYSTEMS MANAGER ** 01/11/73 PAGE 


DATAPLEX 

TOTAL 

ANCHOR 

NUMBER 

TRANS 

MAINTENANCE 

FILEPLEX 

SUBPLEX 


XPLEX 

NAME 

TRNS 

RECORDS 

RUNS 

RUN 

DATES ADDS 

DELETES UPDATES ADDS 

DELETES UPDATES 

ADDS 

DELETES UPDATES 

ASRD1$ 


3,132 

1 


12/19/72 3,132 










FILEPLEX 

ADDS DELETES 

UPDATES 



/' ^ 

> 





TOTAL 

3,132 

FOR ALL 

RUNS 






AVERAGE 

3,132 

PER RUN 







^ . '' ' 

{ .r' 

' ■’ 
i, 

'■ \. " ■ 

' v\ ' 




/ 

vy 
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TOPIC G.3 - OSAGE STATISTICS 

A, DATA SET NAME: 

Betrieval Statistics Report Forsiat 

B, CREATED BY: 

Report Print (BDBPSNTR) 

C, TYPE OF FTIE: 

VS (print) 

D 4 ORGANIZATICN: 

Sequential 

E. KEY IDENTIIIEF (CCMT8C1 FIFtD) : 

Not Applicable 

F. RECORD tENGTH; 

133 Bytes 

G. BLOCKING FACTOR: 

Not Applicable 

H. PDFPOSE: 

To display (via listing) the status of the retrieval 
statistics. 



RETRIEVAL STATISTICS 



NASISID CONN-TIME CPU-TIME # STRAT STORED OWNER 

HR:MM:SC HR:MM:SC;MS SES LENGTH ID 

NEOl 0:53:30 0:00:48:790 500 

SAOWNER 

SAOWNER 

SAOWNER 

SAOWNER 

SAOWNER 

SAOWNER 

SAOWNER 




X' 


01/03/73 


FILE 

FIELD 

ACTUAL 

TOTAL 

NUMBER OF 

NAME 

NAME 

EXP 

SEL 

SRCH CORK 


ASRD1$A 

AUTHOR 

3 

.0 

0 ' 

0 N 

ASRD1$B 

KEYWORDS 

13 

0 

0 

0 ; 

DB2TDBA 

EMPAGE 

1 

0 

0 

0 y 

DB2TDBB 

TOTAL CAR 

1 

0 

0 

0 

DB2TDBC 

KIDAGE 

1 

0 

0 

0 

DB2TDBD 

PET 

1 

0 

0 

0 

DB2TDBE 

SVCDATE 

1 

0 

0 

0 



/// 
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TOPIC G.4 - TISfiCE STATISTICS 

fl, EATA SET HAHE: 

Snapsfsot Statistics Esport ForiBat 

B. CBEATEE El: 

Snapshot Print tBEECHKPT) 

C, < TYPE Of EIIEt 

VS <print) 

D, , 0BGANI2ATICN: 

Sequential ^ 

E. KEY TDEWTIPIER <CCHTSOL FIELD): 

Mot Applicable 

F* , EECOBC LEH6TH: 

133 Bytes 

G. BLOCKIMG FACTOR: 

Mot Applicable 

H. POEPOSE: 

To display (via listing) those records which 
underqcne the reinitialisation process. 


have 







721215 

721215 

721215 

721215 

721215 
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TOPIC a,1 - IS1HIEIATP COMMANDS 

a. DATA SET NAMES 

NASIS Message File 
Bo CHEATED El; 

Not Applicable 
C. TYPE OF FILE; 

VISAH 

Do OHGANIZATICN; 

Sequential 

E. KEY IDENTIFIER (CCHTHCl FIELD); 

The fifteen byte bey is composed of the eight byte 
message bey concatenated to the seven byte line 
number* 

F* RECORD LENGTH; 

V(132) 

G, BLOCKING FACTOR; 

Not Applicable 

H, PURPOSE: 

This data set contains the NASIS system messages used 
by the various modules for prompting and diagnostic ■ 
messages* 
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TOPIC H.2 - IHFfEDIATE CCSHftKDS 

Ao DATA SET NAMEt 

Strategy Data Set 
B. CHEATED BY; 

ETSSTHT 

C* TYPE or FI18; 

YISAH 

D. OHGANIZATICN; 

Regional Sequential 

E. KEY IDEHTTFIER <CCMTRC1 FIEID) ; 

Strategy Hase (16 characters) 

F. RECORD lEHGTB: 

328 

G. BLOCKING FACTOR; 

Not Applicable 

H. , PURPOSE; 

To contain the stored strategies and foroats created by 
and used by the various NASI5 cooioands. 
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TOPIC H.3 » IMKIEIATE COHHANDS 

A. DATA SET WAHE: 

Strategy Display Format 

B. CfiEATED Bl: 

EDBSTBT 

C. TYPE OF FIIE: 

Screen Display 

D. ORGANIZATICNt 

Header = STRATEGY name (centered) 

Data Lines = full width, word split 
Overflow Lines = indented three characters 
Page Overflow = full record 

E. KEY IDENTIFIES (CCNTBOl FIELD): 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR; 

Not Applicable 

H. PURPOSE; 

To display the contents of the data lines comprising a 

st"d'f^ strategy; ’ 
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TOPIC S,4 - IMMEDIATE COHHAWDS 

A. DATA SET WAKE: 

Strategy Names Display Format 

B. CEEATED BY: 

BDBSTHT 

C. TYPE OF FIIE: 

Screen Display 

D. OBGASI2ATICK: 

Data Lines = ccmplete 16 character strategy names 
separated ty two blanks (as many as will fit on a 
line). 

E. KEY IDENTIFIER (CCNTROl FIEID) t 
Not Applicable 

F. RECORD LEKGTHt 
Not Applicable 

G. BLOCKING FACTOBl 
Not Applicable 

H. PORPOSEs 

To display the names of the strategies present in the 
strategy data set. 
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TOPIC H.5 - IfSHIDIRTI COPlIJflSDS 

ft, DATA SET HAHE: 

Oser Profile Table 

B. CBEATEB EY; 

TS2“Si3per7isor 

C. TYPE OF FIIE; 

Segsoented Array 

D. OEGAMI2ATICR: 

Segment - 1 fSynonyms) - sequential 
Segment - 2 <Defanlt Keywords) - sequential 
Segment • 3 (Default-Data) - random 

E. KEY IDENTIFIES (CCNT801 FIELD) : 
wot Applicable 

F. FECOSD LENGTH: 

V(32,7€8) 

G. BLOCKING FACTOR: 

Not Applicable 

H. PDBPOSE: 

To contain the user defined synonyms and defaults. 
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TOPIC H.6 - IKHECIATE CCKHANDS 

A. DATA SET KAHE: 

NASIS User Profile Dataset 

B. CREATED BYs 
TS2-Super7isor 

C. TYPE OF Fill: 

VS AH 

D. ORGAHIZATICN: 
sequential 

E. KEY IDENTIFTEE (CCNTEOl FIELD): 

Not Applicable 

F. SECOED LENGTH: 

V(32,768) 

G. BLOCKING FACTOE: 

Net Applicable 

H. PTJBPOSE: 

To contain the lists of user defined synonyms and 
defaults for a particular HASISID* 



PSGE 197 


TOPIC H.7 - OaTA BETEIE7AL 


a, DATA SET NA«E? 

VEBETAE Tatle. 

B. CBEATEC E?: 

The MftSIS ffiodoleE «hich prompt for commands. 

C. TYPE OF FIIE: 

Table 

D. ORG&WI2ATICH: 

PL/I Data Structure 

E. KEY IDEHTIEIER <CCHTBOI FIEID) : 

Not Applicable 

F. RECORD LENGTH: 

Not Applicable 

G. BLOCKING FACTOR: 

Not Applicable 

H. PURPOSE: 


1. VEBETAE EXTERNAL CONTROLLED. 

This table contains the information necessary to 
associate a set of valid verbs (commands) and 
their respective entry points. 

2. S_ENTSIES BINARY FIXED. 

This field contains the count of the number 
of valid entries in the list belo». 

2. S17E BINARY FIXED. 

This field contains the count of the number 
of entries that can be contained in the list 
telow, 

2. SYHBOLIC.TD CHARACTER fS) . 

This field contains the default symbol that 
can be used to define user written ejftentions 
to this list of verbs. 
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2, CCJ50AND (^EEB^COURT) • 

This list is used to describe the conifDands 
recognized by the defining module* 

3, NASI CHABACTEB <8). 

This field contains the command name* 

3* POOTINE CHARACTER (8) . 

This field contains the name of the 
entry point to be called when this 
command is entered* 

1. ?EBB_CCDNT EINABl FIXED. 

This field most be set to the maximum number of 
entries allowable in the verb list, before the 
table is allocated. 

I. Pt/I DECLARATION: 

GENEFAXIXED NASIS 

DCL 1 VEHBTAB EXT CONTFCLLED, 

2 # ENTRIES BIN FIXED, 

2 SI2E BIS FIXED, 

2 SYHEOLIC^ID CBAB(8), 

2 CCMHAND(VERB.CCDNT) , 

3 RARE CHAR (8) , 

3 ROUTINE CHAR(8) ; 

DCt VERB COUNT BIN FIXED: 


SYSTEM VERB TABLE 


♦/ 

/♦DEFINE 

THE 

VERB TABLE 

♦/ 

/♦DEFINE 

THE 

CURRENT 

SIZE 

♦/ 

/♦DEFINE 

THE 

MAXIMUM 

SIZE 

♦/ 

/♦DEFINE 

THE 

DEFAULT 

TERM 

♦ / 

/♦DEFINE 

THE 

VERB ENTRIES 

♦ / 

/♦DEFINE 

THE 

VERB NAME 

♦/ 

/♦DEFINE 

THE 

ROUTINE 

NAME 

♦/ 

/♦DEFINE 

THE 

TABLE SIZE 

♦ / 



